ال رع ٻا دام 2008 Vısuaı Basıc. NET‏ 


وسا مالدین عمد 


اتفاقية الاستخدام 


هذا الكتاب وقف لله عز وجل» يخضع لجميع قواعد الوقف الإسلامي» وهذا يعني أنه يجوز 


لكل مسلم ومسلمه إعادة توزيعه في صورته الإلكترونية أو إعادة طبعه بشرط عدم التربح 
منه أو تغيير شئ من محتوياته. وقد جعلته هكذا أبتغاء مرضاة ربي وآمل في أن يحط عني 
شئ من أوزاري» فلا تنسني من صالح دعائك. 


دفدیم 


هذا الكت يب في الأ صل قد أ عد ليكون مدخلا للبرم جة العا مة با ستخدام إوuئ¡۷‏ 
»زو لطلاب دبلوم ن ظم المعلومات الجغراذية في الأكاديم ية العربية للعلوم والتكنولوجيا 
بالاسكندرية. وقد مر بمراحل شتى حيث كتبته لأول مرة ليغطي 6 یه8 1وںء۷ ومن تم 
أضطررت لإعادة كتا بة أقسام كثيرة منه عند صدور 2003 ¡sua Bas¡C.N6‏ تم تم 
أضافة بعد التعديلات لتوا فق الإصدارة 2005 ...1و8 1هuء۷1.‏ وبالر غم من توقفي 

عن التدر يس إلا أذ ني رأ يت آن أجدد هذا الك يب ليكون متوافقا مع الإ صدار اهuئ¡۷‏ 
Basic. NE 1 8‏ خاصة مع المظا هر الجديدة الكثيرة التي أضذيت على لغة البرمجة 
الأ ساسية في هذا الأ صدارء و قد أضطرتني هذه المظا هر الجديدة إلى إضافة القسدم ر قم ٥‏ 
لعرض تقذية Windows Presentation Foundation WPF‏ الجديدة» وتعدیل الأقسدام 
رقم ۸ و ٩‏ و .٠١‏ وكنت قد أضفت جزء عن تقذية ],[NQ‏ ثم قمت بحذفه بناء على نصيحة 
عدد من الزملاء العاملين في الحقل حيث أن هذه التقنية غير مستقرة بعد. 
صمم هذا الكتاب ليكون منهجا تعليميا لطلاب متخص صين في ذ ظم المعلومات 
بصورة عامة وذظم المعلومات الجغرافية بصورة خاصة» و من ثم فإن الموضوعات التي 
يضم ها هي تلك الموضوعات الأ ساسية الشادعة التي يحتاجها مبرمج ذظم المعلومات» ولا 
يتطرق إلى الموضوعات المتقدمة مثل برمجة الشبكات أو برمجة الهواتف المحمولة مثلا. 

و قد أض فت عدد من التدريبات إلى كل قس م من أقسد ام هذا الكتاب بغرض أن يلم 
القارئ بالموضوع الذي يقد مه القسدم من خلال التطبيق. وتعمدت أن لا تعتمد هذه التدريبات 
على آي مواد خارجية إلا في الأحوال التي تتطلب هذا حتى لا يتشتت القارئ بين موضوع 
الكتاب وغيره من الموضوعات. ك ماتعمدت أن تكون مع ظم هذه التدريبات مبذ يه على 
بعضها البعض حتى يدرك القارئ الطريفة التي تتطور بها التطبيقات. 

وفي الختام أتمنى أن يكون هذا الكتيب نافعا لطلاب والدراسين» وأن يجد طريقة إلى 
مكتبة وعقل كل طالب أو باحث عربي في هذا الحقل. 
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1.مقدمة 
في عام ۱۹۹٣۳‏ أبڌکر جون کيميني yرعہKe‏ ۸طمہ[ وتوماس کور تز یھصہطآ 
Kurtz‏ لغة icیBa‏ و هي الكل مة التي تختص ر ellعبlرة‏ " Beginners All Purposes‏ 
]nstruction Code‏ 1icاSymbo‏ " أو "شفرة التعليمات الرمز ية متعددة الأغراض 
للمبتدد ين". وک ما هو وا ضح من تس ميتها فإذ ها صممت كي تد قق احتياجات البرم جة 
لا مبرمجين غ ير المحترذ ين من الهواة والطلاب والباحة ين غ ير المتخص صين في علوم 
الحاسوب. وقد لاقت لغة وج8 نجاحا واسعا على النطاق الذي صممت من أجله. 


وفي مايو ۱ طر حت شركة )0Êومإ]M‏ نسخة مطورة من sic‏ منحتھا اسم 
ئ اهuء¡۷‏ حيث استخدمت اللفظة المضافة 1عںو]۷ للتعبير عن الوظيفة الجديدة التي 
أضي فت لهذه الا غة كأول ل غة مص ممة لتطو ير ت طبيقات ذات واجهات ١‏ ستخدام ر سومية 
Graphical User Interface‏ تعمل على نظام التشغیل Sys”‏ ع«iاaإء‌م0‏ الثوري 


الذي کانت تروج اگMicr0s0‏ له منذ عام 1۹۸° .Microsoft Windows gg‏ 


وم نذ ذلك التار يخ لع بت ءiوة8‏ [هuو۷‏ دور الا غة الأولى لتطو ير ت طبيقات 
Microsoft Windows‏ وقد طرحت ÊمومإعMi‏ منها تسعة إصدارات» ومنذ الإصدارة 
السابعة التي أطلق عليها اسم 2003 1وج8 اوںوز۷» أعيد تصميم یه8 ]ں۷ بحيث 
أ صبحت تع مل وفقا للتقذ ية الجديدة ل طبيقات NET Framework . lund Microsoft‏ 
و من تم حملت الا سم الجد ید N۴1.٥1یه8‏ اaںی۷‏ حيث أ صبحت أبس ط وأك ثر فاعل ية 
وقابلية في تطوير التطبيقات التي تتماشى مع الاتجاهات المعاصرة في الحوسبة مثل خدمات 
الوب وتطبيقات الحواسيب الكفية. وتعد الإصدارة الأحدث اليوم هي Visual Basic.NET‏ 
8 التي طرحت في أول ینایر ۲۰۰۸. 

في هذا القسدم سنتعرض لعدد من المفاهيم الأ ساسية اللاز مة للتعرف على ما هي 
Visua1 Basic.NET 2008‏ وکیف تعمل. 


2 لغة واحدة ونسخ مختلفة 


عندما تم تصميم إوه8 [هںء۷1 للمرة الأولى» راعى مصمميها أن تكون سهلة 
الا ستخدام و في ذفس الو قت قادرة على الا ستجابة لمتطلبات مختلف ال مبرمجين» المبتددين 
منهم والمحترفين على قدر سواء. وهذا ما جعل إمكانات ٥1ئ8‏ |2 ںء]۷ تزداد إصداره تلو 
أخرى» وهذا ماذتج عنه و ضع أ صبح ذيه كذير من ال مبرمجين ذات الحاجات المحدودة 
يحتاجون أن يتعلمون تقنيات لن يحتاجوذها أبداً في تطبيقاتهم» كما كان عليهم أن يدفعوا ڈمن 
هذه التقنيات عندما يشترون أدوات تطوير ء¡یه8 41ء۷ . 

ولتفادي هذا الو ضع»› قا مت )0۴ء0 M1‏ بطر ح عدة نخ Visual Basic ja‏ 
تتوافق مع حاجات المبرمجين المختافة. وقد ضم الإإصدار 2008 Visual Basic.NET‏ 
ثلاثة نسخ رئيسية هي: النسخة المخففة :)ل٤‏ ءوعإمEx»‏ والنسخة القياسية ل Stan dar‏ 


.Professional Edition ةıفlرتحالا والنسخة‎ Edition 


النس خة المخذ فة sی6إمٍ×8۴‏ 2008 یه8 اهuء¡۷‏ هي نس خة تض م التقنيات 
الأ ساسية التي يحتاجها المبرمجين المبتدئين والهواة لتطو ير تطبيقات قادمة بذاتها لمها؟ 
0ne Applications‏ تع مل ت حت نظام التشغ يل Windows‏ اMicrosof›‏ و هي 
مصممة لكي تخدم الأغراض التعليمية غير الربحية ومن ثم فإن الحصول عليها يمكن عن 
طريق تنزيلها من موقع ا۴موهإء ٧‏ على الانترنت» حيث يتم تنزيلها منفردة - بدون أي من 
تقنيات 2008 €1 St»d10.N‏ ua1ءVi‏ الأخرى - ومجاناً. 

النسخة Basic.NET 2008 Standard Edition‏ اV¡sua‏ هي نسخة مخصصة 
يمكن استخدامها لتطو ير تطبيقات مختلفة سواء تلك القادئمة بذاتها أو تطبيقات الوب اء 
icatinsاpم‏ أو ت طبيقات الخادم/العميل Server/Client Applicat:‏ أو ڌطبیقات 
النظام Windows ٣۴٤‏ المخصص للحوا سیب lئكفuة' .Windows CE Applications‏ 
0 غ و یک و E‏ 
Studion. NET 208‏ مقابل دفع ثمنھا. 

النسدخة الiحترlذıة Visua1 Basic.NET 2008 Professional Edition‏ هي 
نسخة يمكن استخدامها لتطوير جميع أنواع تطبيقات الحواسيب والوب» وتتميز هذه النسخة 
بصورة خاصة أنه يمكن استخدامها في تطوير التطبيقات التي يعمل عليها أكثر من مبرمج 


والهوا تف النقالة مم۴ مااطمM‏ وأنظمة الملاحة وص #هاأورS؟ ١‏ 0اهو۷iجN‏ بالسيارات والمركبات البحرية والجوية 
وأجهزة نظام الموقع العالمıي .Global Positioning System GPS‏ 
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في آن واحد» و هو ما لا توفره النس خة القيا سيةء وأيضا يم كن الحصول على هذه النسخة 
منفردة أو ضمن مجمو عة تقنيات 2008 Visua1 Studi01.N٤1‏ مقابل دفع ثمنها. 


وقبل الانتهاء من هذا القدم لابد أن نقدم نبذة عن 2008 .Visual Studio.NET‏ 
هذا الافظ 2008 Visua1 Basic.NET‏ تقصد به M0۴‏ حز مة من أدوات تطویر 
مختلف الت طبيقات تض م ثلا ثة لغات برم جة بص ورة أ ساسية هي Visual Basic.NET‏ 
2008 و 2008 Visual C++‏ و 2008 C#4.NET‏ اVisua»‏ تعمل هذه اللغات الثلاثة من 
خلال بيد ية تطو یر متکlمlة ]ntegrated Development Environment [DE‏ بحدیث 
يس هل على ال مبرمج أن يقوم بتطو ير حلول متعددة اللغات» أ ضف على ذلك إلى أن هذه 
الحزمة تعتمد على تقذية .)اهس عطصه۴۲ N٤1‏ والتي توفر مجمو عة من التقنيات الأساسية 
لتطوير التطبيقات المختلفة وتطبيقات ال ۸5۴ وتطبيقات خدمات الوب بصورة خاصة. 


3.تفنيةٌ NET Framework.‏ وکیف تعمل 


في ینا یر ۲۰۰۲ طر حت گ0یهMicr‏ لأول مرة تقذ ی . NET Framework‏ 
باعتبارها الحل الأمتل لمشاكل تطوير التطبيقات في بيئة ws‏ 0ل W1,‏ 0۴۲٥٣ء1‏ باستخدام 
حزمة تطوير التطبيقات الجديدة - يومئذ - 1٤N.ء1وهB‏ 1هںء۷1 التي طرحت للتجربة في 
E‏ 


شكل 1-1 يبين فكرة عمل تقذیة Ww 01k.‏ ع۴۲۳ ۲ NE‏ حیيث يقوم المبرمج بكتابة 
برنامجه بأي من لغات الحزمة 1٤10.NلS)u‏ اوuوز۷؛‏ وعندما يقوم بتجميعهاء فإنه وعلى 
ع كس اللغات التقليد ية لا يقوم المج مع بإنقاج ملف تشغيلي له الامتداد *مم» لك نه يقوم 
بإنتاج نوع من الملفات يطلق عليه أ سم مlفlٽ Common Intermediate Language‏ 
E‏ ات الو اة الغا م و ی مات اد ا هة ار اا کت 
بها الڌطبيق و من هنا و صفت بأذها محايدة - ولا يمكن أن يتم تنفيذ ها مباشرة - بع كس 
الملفات التشغيلية وم۴1 م1طه†uاءم×عE‏ التي يتم تشغيلها مباشرة - بل تحتاج لتنفيذها برنامج 
آ خر یم ٿJ Î‏ >حد مكligٽ J| NET Framework.‏ lwيã‏ و ھڇ Common Language‏ 
Runtime CR‏ أو مذفذ الاغة العامةء و هو برنامج يلعب دور حاسوب افتراضي يمكن 
تنذيذ البرنامج المحفوظ في ملفات C1]‏ بواسطته» إلا أنه في الواقع يقوم بإنشاء نسخة من 
البرنامج بلغة الآلة تناسب الحاسوب الحقيقي ومن ثم يقوم بتشغيلها على الحاسوب الحقيقي'. 


' إذا كنت تشتم رائحة ه۷ هلء فأنت على حق» لقد حاولت )fمعهء i‏ مضاهاة تقنية عمل تطبيقات ۷aهل.‏ 


ووفقا لهذا السديناريو فإن تطو ير التطبيق يجرى بصورة مستقلة عن نظام التشغيل 
والحاسوب حیث یعتمد کلیاً على ال eصRunt1 Common language‏ والتي تلعب دور 
الو سيط بين الملفات المجمعة C11‏ والحاسوب. وقد وعدت |Êfمومإم]‏ أنه قبل انتهاء عام 
۳ سوف تكون هناك نسخة خاصة من .)اہ Ww‏ ع ھ٣۴ N۴۲‏ لکل نظام تشغیل متعارف 
عليه ڊما ذیه ×uاما‏ و ×امل؛ وبذلك یم کن استخدام لغة cزیھB‏ اھںی۷ أو غير ھا من 


لغات 0إلن†؟ 1وںء۷1 لتطوير تطبيقات تعمل على جميع أنظمة التشغيل!. 


C# VB 
Code Code 
Compiler Compiler 
Common یتم تجميعها إلى لغة محايدة 1 م‎ N٤1 ملفات لغات‎ 
0 Intermediate E / 1 9 
E Language 3 4 Common Intermediate جدیدة تٺمى‎ 
ع‎ E e Language CIL 
ا‎ 8 
0 
5 
u 
o 
$ 
ر‎ Common 1 3 E a TS 
8 Language إلى لغة الالة ع‎ C11 تقوم بتجميع شفرة‎ KR ال‎ 
ٍ Runtime CLR 8 4 1 حتی بتتی تتفیذھا با تخدام معالج الحاسوب‎ 
ع‎ 
8 
01011101010 
10111011101 


101110111 


NET Framework. Jaع‎ öةركف‎ :1-1 شكل‎ 


4.تشغيل 2008 Visual Basic.NET‏ 
لتشغيل 2008 Bas1c.N ٤1‏ ua1ءVi‏ یمکن آن نستخدم أحد طريقین: 
من القاد مة ٤إه†S‏ أختار وصهإعٍهإ۴ ۸11 و من هذه القائ مة أختار الحز مة 
Visual Basic.NET 2008‏ ڌم أختار Visual Basic.NET 2008 li‏ . 
حتی الیوم فإن نسخة .)0۲ N E۲ Fra eW‏ المتاحة تعمل تحت نظام التشغیل ows‏ ل "|۷ Mirosof†‏ ولا توجد نسخ منھا 


لأنظمة التشغيل الأخرى. 
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بالنقر فوق أيقونة 2008 84s106.N81‏ 41٠ء۷1‏ الموجودة فوق سطح المكتب. 


في كلا الحالڌ ين ينذ تح 2008 Visua| Basic.NET‏ وتظ هر واج هة | ستخدامه 
المبينة في شكل 1-2. 


شكل 2-1: واجھة استخدام Microsoft Visua1 Studi‏ عند فتحھا لأول مرة 


في حالة ما إذا كا نت هذه هي المرة الأولى ال تي تقوم في ها بتشغ یل Microsoft‏ 
0 اهuء¡۷‏ سوف تظ هر نافذة تس أل المستخدم عن شكل واجهة التطو ير المطلوب 
العمل معهاء في هذه الحالة سوق يختار المستخدم بالطبع واجهة Visual Basic‏ . 


5.بيئة التطو یر المتکlمذ Integrated Development‏ 


Environment IDE 


بيئة التطو ير المتكاملة Integrated Development Environment 1E‏ هو 
الاسم الذي يستخدمه مطوري 0إلد†؟ اوuو۷‏ لو صف بيئة عملهم. وفي البداية أحب أن 
أقول لك أنه بالر غم من أن 2008 S†»di0.N٤1‏ ua1وVi‏ يستخدم بيئة تطو ير متكاملة 
موحدة لجميع لغات البرمجة التي يضمهاء إلا أنه يفضل أن يتم تخصيص مظهر بيئة التطوير 
المتكاملة ما يتناسب مع یه8 ں۷ و هو ما يمكن أن نقوم به عند تشغيل إهuئز۷‏ 
tudi0.NNE1 8‏ للمرة الأولى» حيث تظهر ر سالة تسأل عن الشكل الذي ير غب أن 
تكون عليه بيئة التطوير المتكاملةء فأحرص أن تكون وج8 41ء۷1 . 


تتكون بيئة التطوير المتكاملة من عدة عناصر هي: 

صفحة البدء مع۴2 ١۲ه)5:‏ هي صفحة وب يتم فتحها في متصفح مبسط داخل 
تبو یب ید مل الا سم »S)۲) ۴2 ge‏ وتحتوي هذه الص فحة على أحدت الأخبار عن 
Microsoft Visuaا Studio.NET‏ وكافة مكوناته» وفي حال عدم اتصال الحاسوب 
المثبت عليه مإلن†؟ ووز بالانترنت تكون هذه الصفحة غير نشطة. 

نافذة :S01uti0n Expo re۲‏ وتقع في الجانب الأيمن من بيئة التطوير المتكاملة 
- أذظر شكل 1-3 - حيث يم كن لامبرمج أن يطلع على مكونات ال حل الذي يقوم على 
تطویره من مشرو عات مختافة وما تحتو يه هذه المشروعات من مکونات»› كما یمکنه أن 


يدير جمیع هذه العناصر من خلال هذه النافذة. 


Solution Explorer 


Solution '‘MyMovwieCollection™(1 project]‏ ی 
MyMovwieCollection‏ ا 3 
E A My Project‏ 
B- N Controls‏ 
J Documentation‏ -# 
la Resources‏ 8 
DVDCollsction Data base,mdf‏ ۲ 
DvDCollectionPataSet.xsd‏ | 
E] Listbetailsvb‏ 


E1) MainForm,.wb 


SêeafchOnline.yb‏ اك 


Solution Explorer öذفli‎ :3-1 شكل‎ 


صندوق الأدوات ×0 ط1٥٠۲:‏ و هو شر يط يو جد في الجا نب الأير من بيئة 
التطو ير المتكاملة - أذظر شكل 1-4 - ويضم جميع عناصر التحكم و[هإئوه التي 
تلزم المبرمج لبناء واجهات تطبيقه مصنفه في تبويبات حيث يشمل كل تبويب مجمو عة 
من أدوات التح كم ال تي تقوم بوظائف متقار بة مثلاً التبو يب Menus & Toolbars‏ 
يحتوي على عنا صر الت كم اللاز مة لإنشاء القوائم وأشر طة الأدوات و ماشابه. هناك 
تبويبان لا يلتزمان بج مع عنا صر التد كم المتقار بة الوظي فة وه ماالتبو يب 11ا۸ 
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Windows ۴86‏ ويض م جم يع عنا صر التح كم اللاز مة لبناء واجهات الت طبيقات»› 
والتبو يب ءا0إ†ره٣‏ ١0ص‏ ه٥‏ والي يضم عناصر التحكم الأكثر استخداماً. ويمكن 
من خلال اختيار أي من عنا صر التح كم معر فة وظي فة هذه العنص ر من خلال نافذة 
ملاحظة الأداة مآ 1٥01‏ التي سوف تظهر. 


+All Windows Forms‏ أ 
Common Controls‏ .=„ 


Button 
Check Box 

Ed CheckedListBox 
i DateTimePicker 


A Lal ComboBox 
A version 2.0.0.0 from Microsoft Corporation 
d& Lal NET Component 


=» LiS| Displays an editable text box with a drop- 
32۴ چم‎ down list of permitted values. 


شکل 4-1: صندوق الأدوات 


نافذة الخص ائص س0لد۷1 كء1اإممهإ۴: و هي موجودة في الر كن الأي من 
ت حت نافذة | ستکشاف ال حل إ٥‏ إ0ام ×۴ ہ٥So1uti‏ - أذ ظر شكل 1-5 و هي الأداۃ 
الست لخر خض اسن اضر الت ال تكن متها ر حه الأطفات رة 
سهلةء حيث يتم اختيار عنصر التحكم المطلوب ضبط خصائصه» تم اختيار الخاصية من 


هذه النافذة واختیار أو تخصيیص قيمة ملائمة لها. 


Size T5,23 
TabIndex 0 
Tabstop True 


Submit | 
MiddleCenter 


The text assoclated with the control. 


شكل 5-1: نافذة الخصائص 
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المشروع الأول في Visual Basic.NET‏ 


إن الطريقة المثلى لتعلم أي لغة برمجة هو الشروع فوراً في كتابة برنامج بهذه اللغة. 
في التدريب التالي سنقوم بكتابة برنامج بسيط الغرض منه تصفح صفحات الوب. إذا حدث 
ولم تفهم أي من الإجراءات المذكورة في هذا التمر ين فلا تقلق فالمفاهيم المقدمة هنا سوف 
يتم تناولها في صورة أكثر تفصيلاً في جزء آخر من هذا الكتاب. 

6.إنشاء المشروع في Visual Basic.NET‏ 

الخطوة الأولى في بناء أي مشرو ع Visual Basic‏ هو تج Visual Studio‏ 
وإنشاء مشروع. وهذه الخطوة ستتكرر في كل مرة تقوم في ها بالشروع في إنشاء ت طبيق 

لإنشاء مشروع جديد أتبع الإجراءات التالية: 

lg ay Microsoft Visual Studio 2008 أختار‎ Start من قاد مة‎ 

Microsoft Visua1 Studio 2008‏ لتظهر شاشة الترحيب تم تظهر بيئة التطوير 
المتكاملة. 

من قاد مة ۴11٥‏ أختار †٤ecز٥P۴r .NNew‏ ننف تح نافذة معنو نة ڊ — New‏ 


.2-6 أنظر شکل‎ - Project 
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۳ ¬ 
New Project Ax 
Project types: Templates: .NET Framework 3.5 lw 3ُ 
z1 Visual Basic visual Studio installed templates 
Windows ; 
Neb windows For ms Application Class Library 
Smart Devire E]WPF Application FAWPF Browser Application 
3: Office Console Application E Empty Project 
Dathases windows Service f WPF Custom Control Library 
Reporting [#IWPF User Control Library FFlWindows Forms Control Library 
Test 
Templates 
WCF 2 
Workflow Search Online Templates... 
a Yisual C# 
- Yisual C++ 
a&- Other Project Types 
B&- Test Projects 


A project far creating an application with a Windows user interface (NET Framework 3,5} 


Name: wWindowsA4pplication1 


شكل 6-2: liفذ New Project‏ 
لاحظ أن هناك قائمة موجودة في الجانب الأيمن من هذه النافذة تحتوي على NN۴٤1.‏ 
E Ok‏ کے ھن خد RET a: Sa a o‏ 
Framework)‏ وبصورة عا مة إذا ک نت تقوم بتطو یر ڌ طبیق ليع مل ت حت نظام التشغ يل 
Microsoft Windows Vista‏ فلا مفر من اختيار . 3.5 lÎ NET Framework‏ || 
كنت تقوم بتطوير تطبيق لن يعمل تحت هذا النظام فيمكنك اختيار أي من الإصدارات الثلاثة. 
أختار icat10۸اApp Windows‏ تم أنقر 0. یظھر نموذج ۴٥۲۳‏ جدید 
في بيئة التطو ير المتكاملة ك ما تظ هر الملفات الضرور ية لمشرو عك في نافذة 
Explorer‏ utionاS.‏ إذا كان هذا المشروع هو أول مشروع من عائلة مشروعات 


.WindowsApplication1 !م‎ Jaa ag Windows Application 


الإجراءات الس ابقة كان الغرض مذ ها إنشاء مشروع للبرنا مج الذي نر يد تطويره. 
المشروع في ءوه8 [هںء۷ هو المكان الذي يتم اختزان وتنظيم مكونات البرنامج فيه. عند 
إنشاء المشروع فإ نه ي تم إنشاءه في ذاكرة الحا سوب» وعند ماتر يد إنهاء بيئة التطو ير 
المتكاملةء فإن بيئة التطوير المتكاملة سوف تعلمك بأن المشروع غير محفوظ على الحاسوب 
ومن ثم فإن عليك أن تختار ما بين حفظه م۷ج؟ أو عدم حفظه ل٣هء¡.‏ 

عند فتح النافذة المعنو نة عزهإ۴ سم.N‏ - أنظر شكل 2-6 - فإنك ستجد مجمو عة 
بن اتر وغات ال فة كك الا من مها المقروع الى فد ةا اختارة والضدهي 
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Windows Application‏ هو واحد من عائلة تطبيقات وس0 لم1 المعتادة التي يمكنك 
استدعاءها من ائم .Internet Explorer sÎ Microsoft Word Jû Start‏ 

عنا إنشاء مشروع»› ڍتم عرض نافذة تحتوي نموذج فارغ في بيئة التطو ير المتكاملة 
يطلق علي ها نافذة مص مم النموذج Form Designer‏ . هذا النموذج الفارغ في مص مم 
النموذج يمثل النافذة التي سوف يتم عرضھا في البرنامج عند تنفیذه. هناك کڎير من البرامج 
يمكنها عرض آأكثر من نافذة في نفس الوقت» لذلك فإن المشروع يمكنه أن يحتوي على أكثر 
من نمودج. 

7 إنشاء واجهة الاستخدام 


حان و قت إنشاء واج هة برنا مج متص فح الوب. سوف تقوم ببناء واج هة | ستخدام 
برنامج باستخدام 2008 Microsoft Visua1 Studio‏ وذلك بإضافة عناصر التحكم من 
صندوق الأدوات ×0ط1هه٠‏ إلى النموذج. 
صندوق الأدوات ×هطاهه۲ يقع في الجانب الأيسر من واجهة Visual Studio‏ 
ويظهر في صورة لوحة 1مره۴ تظهر بالذقر فوقها وتختفي بالذقر فوق أي شئ غير ها في 
الواجهةء» وتتكون هذه اللوحة من عدد من التبويبات yg Components y Data Jûم Tabs‏ 
Windows ۴8‏ ۸11. بداخل كل تبويب مجمو عة من أدوات التحكم التي يمكن إضافتها 
إلى تطبيقك. فمثلاء التبویب المسمی ص۲٥۴‏ sسw‏ لم۷ |۸1 يحتوي على عناصر التحكم 
TextBox‏ و Button‏ و CheckB0x‏ التي تمثل عناصر تحکم یمکن إضافتھا إلى التطبیق 
بسحبها وإلقاءها 510p‏ كمه عهإ5 على النموذج. 


لإضافة عناصر التحكم إلى النموذج أتبع الإجراءات التالية: 
1.أنقر فوق لوحة Toolbox‏ لتظهر هذه اللوحة. 
2. دقر تبو یب ٤دہإ٥۴ ws‏ ٥لdہW۷‏ ۸1 تم أختار عنصر التدکم 1٥ہھ٣‏ ثم اسحب 
وألقي هذا العنصر في الركن الأعلى اليسر من النموذج. 


3. من نفس التبویب› سحب عنصر التحکم ۸٥٤اں8‏ ثم ألقیه فوق عنصر التحکم 1٥ہھ۴‏ 
الذي سبق أن قمت بإلقائه فوق النموذج. 
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4. من نفس التبويب اسحب عنصر التحكم 1٥×80×‏ ثم قم بإلقائه فوق ۴١٥1‏ الموجود 
فوق ال ۴١١۲۳١‏ في جانبه الأعلى. 
5.وأخيرآ من ذ فس التبو يب أذ تر إ#sس‏ ه۷08 وض عه في الجا نب الأ سفل لا 


.Panel 


من المفترض أن تحصل على شكل مشابه للموضح في 
HE Form1 CEK‏ 
لسا ا 


شكل 7-2: النموذج بعد إضافة عناصر التحكم 

الآن أنت قد أضفت عناصر التحكم إلى النموذج. عناصر التحكم تحتوي على شفرة 
فرك مر وما الكصسر فق اللن 6 8 ا اجات 
التطبيقات تحتوي مفتاح 0 أو ز×8 وفي الماضي عند تصميم مثل هذا المفتاح كان الأمر 
يستلزم كتابة شفرة حول كيف سيبدو المفتاح وكيف سيتغير مظهرة بالنقر عليه وهكذاء وهذه 
مسألة صعبة ومضيعة للوقت» لكن باستخدام زوج8 [وںو۷ فإن العنصر 8)٥۸‏ يحتوي 
على الشفرة الأساسية التي تضبط هيئته ليوفر بذلك جانب تمين من الوقت. 

کما تری فان ×ط٥‏ يحتوي عدد کبیر من عناصر التحدکم› ولکل عنصر من 
هذه العنا صر وظي فة واحدة., العنص ر 1عم ه۴ مثلاً يم كن أن يس تخدم كحاو ية لغيره من 
العناصر. بيذما يستخدم العنصر ١0))ں‏ 8 للقيام بتنفيذ إجراءات محددة عندما يقوم المستخدم 
النهائي للتطبيق بالنقر عليه. أما عنصر التحكم ×0 1١×8‏ فيستخدم لإدخال البيانات النصية 
من لو حة المفاتيح وإظهار ها فوق شاشة الحاسوب. وأخيرً عنصر llتھĞڌءp WebBrowser‏ 
يقدم خصائص تصفح الوب مماثلة لتلك التي يقدlqa .Internet Explorer‏ 
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8 ضبط خصائص عناصر التحكم 
قمنا فيما سبق بإنشاء واجهة التطبيق عن طريق إضافة عناصر التحكم إلى النموذج. 
و دف فن نے 9 کر رو فاا فی ر ف ن ات کا 
تقوم عناصر واجهته بأي من الوظائف. فيما يلي نعتني بالجزء الأول من المشكل وهو مظهر 
التطبيق حيث سوف نقوم بضبط الطريقة التي يبدو عليها البرنامج ليظهر جيداً وذلك بضبط 


خصائص عناصر التحكم. 
6.أختر عنصر التحكم اءصه۴ من فوق النموذج في نافذة ۲٥ہعاوە ۴٥۴٣‏ بالذقر 
فوقه أو بالنقر فوق أي من حوافه. تعرض نافذة ٥١‏ )٥م٠۴۲‏ في القسم الأسفل الأيمن 
من بيئة التطوير المتكاملة خصائص عنصر التحكم إعصج۲. 
7. في نافذة s)ممهإ۴‏ أخ تر خا صية )ء0( ثم ان قر الس هم الموجود على يم ين 
الخاصيةء تظهر نافذة صغيرة تحتوي على عدد من الصناديق. 
8.اذقر فوق الصندوق الأعلى لتض بط خا صية )٥ه(‏ على أعلى» ونتي جة لهذا يتمدد 
عنصر التحكم 1٥"د‏ ليشغل القسم العلوي من النموذج. 
9.قم باختيار عنصر التحکم Web8] 0w se۲‏ من فوق النموذج. في نافذة P٥ pe٤‏ 
أختر خاصية (0٥)‏ ثم اضبطها لتصبح ۴111 (الصندوق الأوسط). 
0.أختر عنصر التحدکم Butt٥٥‏ ومن نافذة ک٥‏ مه۴ أختر خاصیية 1٥×٤‏ ثم امح 
كلمة ))٥١۸1‏ ں8 من أمامها وأكتب عوضاً عنها 60!. 


1.قم بتغيير وضع العناصر وتغيير حجمها بالنقر عليها وجرها من مكانها أو النقر على 
حوافها وسحب هذه الحواف حتى تحصل على الشكل التالي للواجهة. 
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شكل 8-2: شكل النموذج بعد ضبط عناصر التحكم 
تغدير قيمة الخاصیية ٣٥×٤‏ لعنصر التحکم ٥٥ں‏ أدى إلى تغير العنوان المكتوب فوق 


المفتاح. وتتغير قيم خص ائص عنا صر التحكم بصور شتى» فمذها مايتغير رقميا ومذها 
يحصل على قسمة نصية من قائمة محددة» ومنها ما له قیمتین ٥ی۴1‏ و عu٣ا.‏ 

يمكن تغدير الخصائص من النافذة وعا]مم ۴٥‏ وعندئذ يتغير شكل عنصر التحكم 
لملائمة القيمة الجديدة لخصائصه» كما يمكن تغيير الخصائص أثناء التصميم كتغيير الموقع 
أو تغي ير الح جم و في هذه الحالة تتغ ير قي مة الخص ائص المقابلة في النافذة وما ممه" 
لتتوافق مع هذه التغيرات. 

نظراً لأن عملية ضبط الخصائص ستتكرر كثيراً فيما يلي» فسوف نستخدم طريقة 
مبسطة لشرح خصائص عناصر التحكم المختلفة حيث سوف نستخدم جدول مكون من تلاثة 
أعمدة» العمود الأول نذكر فيه اسم عنصر التحكم» والعمود الثاني سنذكر فيه الخاصية وفي 
العمود الثالث وفي مقابل الخاصية نضع قيمتها. 


والجدول التالي پبین ضبط خصائص النموذج Form1l‏ الذي قمنا به من قبل: 
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9إضافة شفرة البرنامج 
فا سف فا ذل مقر فا فر ادك انحل ى مر د اقات 
فيما يلي نعني بما يجعل هذا التطبيق له القدرة على العمل والاستجابة لطلبات مستخدميه. 
قم بإضافة شفرة للبرنامج بالطريفة التالية: 
2.قم بالنقر مرتين فوق المفتاح 8)0١‏ المسمى 60! فوق النموذج. تتفتح نافذة جديدة 
معنونة 0۲ا81 0٥‏ في تبويب جديد. 
3 .قم بكتابة الشفرة التالية في liفذö .Code Editor‏ 
WebBrowser1.Navigate (TextBox1.Text)‏ 
4.هذه الشفرة سوف تعمل فقط عند تثفيذ البر خامج. 
هل لاحظت أن نافذة )ز۳ مله عندما ظهرت كانت تحتوي على الشفرة التالية: 
PEIvVate. SUBD BuUttonT ClTtek(BYyVal sender As‏ 


System.Object, ByValue As System.EventArgs) Handles 
BUEEORL.CLLOK 


| 
ERA: Sub 


هذه الشفرة يطلق علي ها إجراء جزئي ٥إuل٥ءءهإ۴‏ طںŠ؟.‏ أي شفرة بدا خل هذا 
الإجراء الجزئي (أي بين العبارات طاu؟‏ و طانا؟ ل 8) سوف يتم تنفيذ ها في كل مرة يتم 
النقر على المفتاح فيها. 


الشفرة التي قمت بكتابتها 


(WebBrowser1.Navigate(TextBox1. Text 

تذيد البرنامج أن يستخدم الطريقة إ0طاءمص المسماة مهعره. الخاصة بعنصر 
الت کم WebBrow ser‏ )و هو الم می ھ نا 1إWebBrowse)‏ مس تخدم الق مة النص ية 
المرتجعة من عنصر التدکم 0×1 ۲٥×8‏ المشار إلیھا ڊ۔ ٦٥×)80×1.1٥×٤‏ حتی يقوم 
بتحم يل الصفحة التي کتب المستخدم عنواذ ها في عنصر التدكم 1e×80×‏ في عنصر 
التحكم عند النقر على المفتاح 60!. 
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0 اختبار وتشغيل البرنامج 
الآن وقد أنهينا البرنامج قد حان الوقت لاختباره وتنفيذه. في حالة التطبيقات لضخمة 


والمعقدة قد يكون اختبار التطبيق طويلاً ومعقداء و هو الأمر الذي سوف نناقشه في مو ضع 
آخر. أما في حالة البرنامج البسيط الذي قمنا بتطويره كل ما نحتاجه أن نقوم بتشغيله فقط. 


لتشغيل البرنامج قم بالإجراءات التالية: 
5 تزضل الحاعرب ىار نت 
6.من القائمة عuطاء(‏ أختر ع«أععuطاء‏ ١ه‏ ليبدأ تشغيل البرنامج. 
7. قم بكتا بة عنوان أي من مواقع الوب في صندوق النص وص في البرنا مج ولوكن 


صe.coاoogع. www‏ ثم أنقر المفتاح 60!. تظهر صفحة الموقع في عنصر التحكم 


. WebBrowser 
.Debug من القائمة‎ Stop Dءbuععiدع 8.لإنهاء تشغيل البرنامج أختار‎ 


في معظم التطبيقات التي تقوم بتطوير ها سوف تقوم باختبار التطبيق أثناء تطويره 
العديد من المرات» ذفي كل مرة سوف تضيف فيها عنصر تحكم أو تضيف شفرة سوف 
تر غب أن تعلم ما إذا كان التطبيق يعمل على الو جه المطلوب أم لا. هذه العملية يطلق عليها 
أسم ال Debugging‏ وسوف نناقشها لاحقاً. 
1.حفظ المشروع 

الآن أنت قد أنشأت تطبيقك الأول. لنقوم بحفظه أتبع الخطوات التالية: 


9.من القائمة ۴11١‏ أختار ۸11 م52۷ لتظهر النافذة المبينة في شكل 2-9. 


Save Project 
Name: wYindowsApplication1 
Location: D:'wba0OBPro jects 
Solution Name: wWindowsAapplication1 w | Create directory for solution 


Saye | 1 Cancel 


Save Project ةذفli‎ :9-2 شكل‎ 
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في الخانة 4٥٥‏ يمكنك تعديل اسم البرنامج. 
من الخانة [0٥2٤10١‏ أكتب عنوان المجلد الذي تريد أن يضم مشروعك. 
في الخانة 8ص4 «٥اuاه؟‏ قم بكتابة أو تعديل اسم الحل. 
في النهاية أنقر فوق المفتاح .S4۷e‏ 
الموضوع الأول في هذا النافذة يو جد خا نة للا سم عه وخا نة لا سم ال حل 
Name‏ utionاS0»‏ فما الفارق بينهما؟ الاسم هو الاسم الذي سوف يظهر به التطبيق عند 
أضافته لمجو عة البرامج خاصتك التي يدير ها s‏ 0لم¡ ا#هءهإءM1‏ أو بصورة أكثر 
بساطة هو اسم تطبيقك كما سوف يظهر في القاأمة Programs‏ 11. بیذما اسم الحل فهو 
| سم الملف الذي سوف يس تخدم في إنشاء ملف الت طبيق أثناء عمل ية تطو ير الد طبيق في 
Basic.NET‏ اV¡sua‏ وهو ملف سوف یکون له الامتداد ٭.ہ۶1, 
الموضوع الثا ني يتعلق بالمكان الذي سوف يتم حفظ المشروع عليه أثناء تطويره. 
فالمشروع قبل عملية الحفظ أين كانت ملفاته؟ في الواقع كانت هذه الملفات موجودة في مجلد 
خاص بعنوان 2008 0ل نداS؟‏ اعدو ۷. لكن عند حفظ المشروع فإنه يمكنك تخصيص مجلد 
مخصو ص لحفظ هذا المشروع وهو المجلد الذي سوف تحدد مساره في الخانة 0نجةءم. 
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Visual Basic.NET 2008 أساسيات‎ 


يع تبر 2008 icىBa Visua1[‏ اMicrosof‏ بمختلف إ صدارته الطريقة الأسرع 
وال سهل لتطو ير الت طبيقات في بيئة تشغ يل sسە0لم¡W‏ 0۴ء0إءMi.‏ وح تى هؤلاء 
المبرمجين المبتدئين» فإن عزوه8 1هںء۷ يمدهم بمجموعة كاملة من الأدوات التي تيسر أي 
من عمليات تطوير التطبيقات. 

ولکن ما ھg Basic‏ Visual؟‏ 


إن الا فظ [مںء/ يش ير إلى الطري قة ال تي يقوم ڊ ها ال مبرمج بتطو ير واجهات 
الاستخدام الر سومية 1ا 6) )Graphica1 User ]nter face‏ لڌطبيقاته. أما الافظ ›¡يی۾8 
ف هو يث ير إلى الأحرف الأولى من llعبlرة Beginners App-Purpose Symbolic‏ 
struction C0‏ بمع ني شفرة التعليمات الرمز ية لمختلف أغراض المبتدد ين» ل غة 
البرمجة التي أ ستخدمها أ كبر عدد من مبرمجي الحاسوب منذ بدا ية الحاسوب. با ستخدام 
ئ |هuء۷1‏ يمكنك تطوير العديد من التطبيقات النافعة بأقل قدر من التعقيد. 

في هذا القسم نتتبع معا أهم عناصر لغة برمجة 2008 وج8 1ائ¡ . 


2.ما هي البرمجة؟ 


ربما كان من المستحسن قبل أن نمضي في تعلم لغة برمجة زئه8 1هuء۷‏ أن 
نتو قف قليلاً لنفهم ما هي لغة البرمجة eعوuع,4‏ عمiصصmهاعداP‏ وكيف تعمل. أي أن 
علينا أن نعلم كيفية البرمجة من الجانب النظري. 

الا ف كد دا ا افر 

الحاسوب في حد ذاته مجرد حز مة ضخمة من المكونات الإلكتروذية التي تمرر 
التيار الكهر بي أو توقفه»ء لكن المستخدم هو من يمكنه أن يضبط هذه المكونات الإلكتروذية 
بحيث يجعل الحاسوب يعرض صورة أو يعزف قطعة من الموسيقى» وهذا هو البرمجة في 
أبسط صورهاء أن تجعل الحاسوب ينفذ أمر ما. 
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بالط بع إن عملاية ض بط هذه المكونات الإلكتروذية هي عملية مجهدة ومعقدة» وهنا 


يأتي دور لغات البرمجة. 


1. ما هي لغة البرمجة؟ 

ڍ عبر الناس عن أنفس هم أ ستخدم لغات تتكون من العد يد من الكلمات. الحا سوب 
يستخدم لغة بسيطة تتكون من حرفين فقط ١‏ و .٠‏ فيعبر عن وجود التيار الكهربي في دائرته 
بالعدد ١‏ و عن انعدام وجود التيار الكهر بي بالعدد .٠‏ إن محاولة التخا طب مع الحا سوب 


باستخدام لغته أشبه بالتخاطب مع صديق باستخدام شفرة مورس. ممكن؟ نعم لكن صعب. 


تع مل لغات البرم جة بمثا بة متر جم بي نك وبين الحا سوب. فعوضا عن تعلم الا غة 
الأ صلية للحاسوب - والتي يطلق علي ها أ سم عة الآلة معو uع‏ م14 عnنطMac‏ - يم كن 
استخدام لغات البرمجة بطرقة أبسط وأكثر قابلية للفهم. 

ع ند كتا بة برنا مج بأي من لغات البرم جةء يقوم برنا مج خاص يس مى المج مع 
اeاpiصده‏ بتحويل التعليمات التي كتبت بلغة البرمجة إلى لغة الآلة. وهذا يعني أن مبرمج 
Bi‏ 41ء۷1 ليس عليه أن يهتم بكيف سيقوم الحاسوب بتنفيذ تعليماته» بل عليه أن يعرف 


کیف يعبر عما یر غب باستخدام c¡یچے8‏ |u2ء1‏ ۷ . 


1.12.2طبıعة‏ lغة Visual Basic.NET‏ 
تتشابه لغة مزوج8 1هںو]۷ مع اللغة التي نستخدمها في حياتنا اليومية. عندما نتحدث 
أو نكتب نستخدم أنواع مختافة من الكلمات مثل الأفعال والا سماءء والتي تستخدم بطريقة 
معر فة سلفا. كذلك في ءوج8 |عuو۷‏ هناك مجمو عة من الكلمات المعروفة باسم عناصر 

اتر انر ف ا ا وا کک ق کا ارات 
تشڌ مل عنا صر البرم جة في ء¡یھ8 [وuںوز۷‏ على llعبlرlٽت Statements‏ 
والإعلانات sممن1aatاءمD‏ والطرق sله0ط†مMN‏ والعاملات كat0rإeم0‏ والکلمات 
المحجوزة ولإهسره. بنهاية هذا الكتاب سوف تكون ملم بهذه العناصر وكيفية استخدامها. 
اللغات الإنسانية لها قواعد هامر التي تحدد كيف يتركب الكلام في جملة. وكذلك 
¡ئB‏ [هuaءV1‏ تحتوي على قوا عد خا صة ب ها تتم يز بالس هولة الشديدة. فمتلاً العبارة 
"السرعة القصوى لسيارتي هي "٠١‏ يمكن التعبير عنها في وج8 اهuو۷‏ كما يلي: 
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Car. Speed.Maximum=50 
في نهاية هذا القسدم ستتعلم الكذير عن قوا عد لغة ءزوه8 [هuو۷1 والأدوات التي‎ 
سوف تساعدك في تصحيح صيغ الشفرة في برنامجك مثل الأداة عو م1118ه)م] التي تساعد‎ 
المبرمج في تصحيح شفرة البرنامج أثناء كتابته إياها.‎ 
وكما أن الاغة البشر ية تتكون من أجزاءء فمثلاً يتكون هذا الكتاب من أبواب وڊكل‎ 
باب عدد من المقاطع يتكون كل مقطع من جمل» أيضا تتكون البرامج المكتو بة ب اوائ¡‎ 
من أجزاء يطلق عليها وماںل مص التي تقوم مقام الباب» و كعإu لمع هم التي تقوم‎ Bs 
التي تقوم مقام العبارات.‎ 11,٥١ هf مقام المقاطع» وأخيراً سطور الشفرة مله‎ 


3.الخصائص والطرق والأحداث 

عند ما قم نا بإنشاء برنا مج متص فح الانتر نت في القسد م ر قم ۲ من هذا الكتاب» 
استخدمنا عناصر التحكم مثل المفتاح 8)٥١‏ وصندوق النصوص ×80×ع1 لبناء واجهة 
ارتام فل كا صر التد ك اأفى ا تكد اها تمرذج مقالى ما بطاق غابد فى ونو 
Basic. NET‏ اسم الکائن ect‏ jا0.‏ 

وبالر غم من أذنا سنتعرض للكائنات في قسم مستقل من هذا الكتاب» إلا أن عرض 
مبسط للمفاهيم الأساسية للكائنات سيبسط لنا الكذير من المسائل التي سوف نتناولها في هذا 
القسم وأقسام أخرى قادمة. 

الكائنات و†ءعزطا0 كما تقدم ها cإوه8‏ [هuء۷1‏ لمستخدميها هي محاكاة لمفهوم 
الكائنات في الواقع الحي. فأي كائن في الواقع الحي يمكن التعامل معه من خلال ثلاثة مفاهيم 
هي الخصائص و٥۲۲1ء‏ م٠۴‏ والطرق وsل0طامN‏ والأحداث Events‏ . 

خصائص الكائن هي مجمو عة الأوصاف التي تميزه» فالبالون ككائن في الواقع يمكن 
و صفه عن طر يق ڊعض الخصائص متل اللون والةطر وحالته من حيث كو نه منتفخا أم 
فار غ. فإذا انتقلنا إلى اوج8 1هںو۷1 فإن هذه الخصائص يمكن ترجمتها إلى شفرة تعليمات 
كالتالي: 


Balloon.Color = Red 


Balloon.Diameter = 10 


Balloons. IAElated. = True 
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يمكن أن نقرأً هذه السطور من الشفرة كالتالي: خاصية اللون للكائن بالون هي أحمرء 
خا صية الة طر إع٤ع‏ ه1( للكائن بالون تس اوي ١٠ء‏ خا صية الانتفاخ عه ام!] للكائن 
بالون حقيقية (أي أن البالون منتفخ). 

بصورة عامة فإن خاصية أي كائن في عزوجه8 1هuو۷‏ يمكن تمتيلها كالتالي: 

object.property = value 

حيث عع زطه اسم الكائن» راإعمه۲م الخاصية التي نقوم بضبطهاء عuاجه‏ هي 
القيمة التي سوف نخصصها للخاصية. ويسمى ضبط الخاصية بهذه الطريقة باسم الضبط 
بالشفرة البرمج ية تمييزآً له عن الض بط عن طري فة تغي ير قي مة الخا صية في النافذة 
es‏ ممPr‏ كما فعلنا في القسم الثاني من الكتاب. من الناحية العلمية كلا الطريقتين يؤديان 
إلى ذفس النتيجةء إلا أن طريقة الضبط بالشفرة البرمجية هي الطريقة الوحيدة التي يكن 
استخدامها عند تصميم الاستجابة عن حدث معين كما سوف يأتي. 

المفهوم الثا ني الذي يتعلق بالكائن هو سلوك الكائن»ء فأي كائن في العالم يم كن أن 
يتص رف تص رفات عدة» فالكلب مثلاً ككائن يم كن أن يذ بح أو يحرك ذيله» وكذلك البالون 
يمكنه أن يقوم بعدد من التصرفات كأن ينتفخ أو يفرغ الغاز الذي يحتويه أو يرتفع إلى أعلى. 
تسمى هذه التصرفات أو السلوك في زي8 1هںء۷ بالاسم "طرق ءل 0طا6" كما بعض 
اللغات الأخرى تدعوها "وظائف ووه مو۴" أي الوظائف التي يمكن أن يقوم بها الكائن. 

الآن لو أذ نا حاول نا أن نم تل الوظائف ال تي يقوم ب ها البالون مس تخدمين إهuئ¡۷‏ 
Bic. N۴1‏ كيف سنعبر عن ذلك؟ سنعبر عنها في صورة شفرة تعليمات كما يلي: 


Balloon. Inflate 


Balloon.Deflate 


Balloon.Rise (5)‏ 
و هو مايمكن قراء ته كما يلي. البالون يقوم بوظيفة الانتفاخ ع)ها؟م]ء البالون يقوم 
بوظيفة أفراغ غازه عاها؟ ه0 البالون يقوم بوظيفة الارتفاع إلى أعلى مسافة خمسة. 


وبصورة عامة يمكن تمثيل قيام كائن بطريقة ما باستخدام الصيغة: 


object.method (parameterl,parameter2,..) 
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ح يث زط ١‏ سم الكائن» 4٥0ط٥ ١‏ سم الطري قة المطلوب م نه تنفيذ هاء 


aramet1مp‏ و rameter/2هم‏ وجميع البارامترات الموجودة بين الأقواس المستديرة () 


المفهوم الثالث الأساسي بالنسبة للكائنات - وهو في الواقع أهم هذه المفاهيم الثلاثة - 


هو مفهوم الحدث م۷ 5. فأي كائن قد يتعرض لي حدث خارجي ومن ثم يستجيب إلى هذا 
الحدث» فلو | نك وخزت البالون بابرة سوف تنذ جر فالو خز هو الحدث» والانفجار هو 
اة اون تت ارخ 


کائن. 


في ٥و8‏ 1ء۷1 تو جد مجمو عة من الأحداث التي يم كن أن يستجيب لها أي 


و يمكن معرفه هذه الأحداث من خلال نافذة كتابة الشفرة كما هو مبين في شكل 3-10. 


o9 Button1 || 7 cick 


Private 5 Buttonl1 Click(ByVal sghûder As System. Object 


End Sub 
LEnd Class 


ألخذث امن الكائن 


شكل 10-3: التعرف على الأحداث من خلال نافذة كتابة شفرة التعليمات 


الآن لنفترض أن البالون الذي نحاول تمثيله في ءiزیه8‏ اهuو۷‏ تعرض للو خز 


»uncture‏ كيف يمكن أن نقوم بتمذيل هذا الحدث في icیھ8‏ 1ھںی۷؟. شکل 3-11 یقدم 
ک6 رر عن الطر ت الى مرت رة قل ات ها 
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Ballon. Colêr -. _Pungturë() 
0 0 


٩ 
ت‎ 


Ealloon.Height 
Ealloon, Diameter 


Balloon.Dbeflate 
Balloon. MakeNoisêe(" Bang”) 


شكل 11-3: حدث وخز البالون 


ا ا م اكا الا و لكت الكو 


Sub Balloon Puncture () 
Balloon.MakeNoise ("Bang") 


Balloon.Deflate 


Balloon.Inflated = False 
ERA vSuUb 


بدا يةنلا حظأن الد طر الأول يتكون من الكل مة طں؟ يتب ها 
»()Ba1100n_Puncture‏ هذا السطر يمل بداية الحدث» وجميع التعليمات التي ستأتي بعد 
ا الط ف اکا اكان وو واا لضت ال خا وذ فار قرات ال د ون 
ان ن ف اا ف ۷ فور ارات تمص فر اة 

يتكون الحدث من مجمو عة من السطور تمثل تغيير في قيم بعض خصائص الكائن 
11 وحثه على القيام ببعض الوظائف أو الطرق. فمجموع تعليمات الاستجابة على 
الحدث يم كن قراءت ها هكذا. ع ند وقوع حدث الو خز» سيستخدم الكائن بالون الطري قة 
MakeNoise‏ أي طريقة إصدار ضوضاء ويتم تخصيص الضوضاء في شكل كلمة ڇر۾8 
التي تقدم كبارامتر بين القوسين ()؛ تم يقوم الكائن بتنفيذ طريقة م)ه[۴ (٥‏ فيقوم بتفريغ نفسه 
من الغاز الذي يملؤه» وأخير تصبح الخاصية ل٥ها؟م!]‏ بمعنى ممتلى بالغاز غير حقيقية. 
وهذا هو ما يمثل استجابة البالون لحدث الوخز. 
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في النهاية يأتي السطر الأخير وهو اuا؟‏ لمع8 ليمثل نهاية الحدث» وتعتبر جميع 
التعليمات الواردة ڊين Sub Balloon Puncture‏ )< و End Sub‏ هي استجابة الکائن 
B11‏ علی حدث الوخز. 


IntelliSense ةذıۆۋgll1.12.4‎ 


اهم ميزات Studi0.NNE1 2008 15٤‏ 1مVisu‏ في كتابة البرامج هو البسداطة 
والسهولة» حيث يمكن كتا بة برا مج طويلة با ستخدام عدة ضربات قليلة على لو حة المفاڌيح 
لكتابة تعليمات البرنامج وبأقل قدر ممكن الأخطاءء وذلك بفضل الوظيفة موم م؟111ما,]. 

تقدم هذه الوظيفة عدد من الأدوات التي تس اعد ال مبرمج على كتا بة تعليمات شفرة 
برامجه ببساطة وبدون أخطاءء تشتمل هذه الأدوات على سرد الأعضlء «List Members‏ 
معلومات البارامترات [٤0‏ ١ءء‏ صهإ۴a»‏ والمعلومات الس ريعة گم[ )عQui»‏ وإكمال 
الكلمات W0۲4‏ مtءmp1هC»‏ وملاحظات البنى اللغوية وم11 ×ها"رS.‏ 


List Members clذعeJl‎ درw1.12.4.1‎ 

عند ما تقوم بکتا بة | سم كائن متبو عا بمو شر لځ ¦ۈظÃ cpoint operator‏ فان قاد مة 
نعرف في قسم متقدم من هذا الكتاب - هذا الكائن سوف تسرد كما هو مبين في شكل 3-12»› 
حيث يمكن التحرك فيها باستخدام الفأرة أو باستخدام مفاتيح الأسهم» كما يمكن الاختيار منها 
عن طر يق ضرب مفتاح ٥٥هم$‏ في لو حة المفات يح حيث سوف يتم إضافة ها على جوار 
الكائن فور عقب مؤشر النقطة. 


DateTime. 


Û% DaysînMonth 3 
% Equals 


YQ FromBinary 
yw FromFileTimê 
% FromFileTimelUltê 
9 FromOADatê 
% isLeapYêar 
# MaxValuê 
| # Minvaluê اڪ‎ 


شكل 12-3: سرد الأعضاء 
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1.12.4.2 lnglzeت‏ llبlر|lمتڙر Parameter Info‏ 
عندما تكتب طريقة ما وتعقبها بفتح قوس مستدير ( لإضافة البارامترات خاصتهاء 
تظ هر نافذة تحتوي على معلومات حول هذه البارامترات المطلوب إضافة هاء وعند ما يكون 
هناك أكثر من أ سلوب لو ضع هذه البارامترات بين الأقواس الم تديرة يمك نك ١‏ ستعراض 

الأ ساليب المختافة عن طر يق تحر يك بكرة الفأرة أو استخدام مفاڌيح الأ سهم. أذظر شكل 
3-3 لمزيد من الإيضاح. 


Console.Wri te ( | 


1 ئت‎ 16 F void Console.Write (bool value} 
value: The value to write. 


شكل 13-3: معلومات البارامتر 
12.4.3 .1المعلومة السريعة Quick Info‏ 
إذا قمت بإ سناد مؤ شر الفأرة فوق أي كلمة من الكلمات التي تكون شفرة التعليمات 
سوف يظهر مربع يحتوي على تعريف كامل لماهية هذه الكلمة كما هو مبين في شكل 3-14. 


DateTime. Comppre(FirstDate, SecondDate) ; 


int CateTims. Compare (DateTime t1, DateTime t2] 


Comparês twûö İiistanığêS öf System, DatêT imê arıd 
rêturnfıS arı iidicatiörı of thêëîr rêlãative values. 


شكل 14-3: المعلومة السريعة 
1.12.4.4|كJlan‏ |lكaJۈٽت Complete Word‏ 
دما قرم كا ام لاض ار طرةة أ حذة تهر قانمة كمل لك عدا الان 
كما هو مبين في شكل 3-15 يمكن إدخال الاسم مذها مباشرة بضرب المفتاح مءهم8 من 
لوحة المفاتيح. 
Ne. Button1 Tel‏ 


= Public Overrides Property Text) As String | 


Hî Textalign 
î TextimageRelation 


Common 1ه‎ 


شكل 15-3: إكمال الكلمات 
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3 تمتيل البيانات باستخدام المتغيرات 
تم ثل المتغيرات وع1طه1ه۷ مفهوم أ ساسي في برم جة الحوا سيب. المتغير هو 
حرف أو أ سم يتم اختزان القيمة ذيه. عند ما تقوم بإنشاء برنا مج يمكنك استخدام المتغيرات 
لاختزان الأرقام مثل ارتفاعات الأبنية أو الكلمات مثل أسماء الأشخاص. بصورة عامة يمكن 
استخدام المتغيرات لتمثيل أي نوع من البيانات مطلوب في برنامجك. 
قد تسأل نفسدك سؤال "لماذا أستخدم المتغيرات في حين يمكن استخدام قيم البيانات 
مباشرة؟". كما هو وا ضح من الا فظ "متغيرات وماطهاه۷" فإن الة يم التي تختزن في 
المتغيرات يمكن أن تتغير أثناء تشغيل البرنامج. فعلى سبيل المثال يمكنك أن تكتب برنامج 
لتع قب عدد علب المياه الغاز ية في الثلا جةء هذا العدد يتغير مع الو قت حيث أن هناك من 
يشرب هذه العلب وهناك أيضا من يضيف علب جديدة إلى الثلا جة» وعوضا عن كتابة كل 
البيانات الخاصة بتغير عدد علب المياه الغاز ية دا خل البرنا مج» يمك نك أن تس تعيض عذها 
بمتغير يتم تزويده بعدد العلب أثناء تشغيل البرنامج. 
1.اختزان البيانات في المتغيرات 
هناك ثلاثة خطوات لاستخدام المتغيرات» هذه الخطوات الثلاثة هي: 
الإعلان عj‏ nllتغjıر Declare the Variable‏ 
تخصيص |اnlمتغير Assign the Variab]e‏ 
استخدlم‏ llئnتغıر Use the Variable‏ 
1 للإعلان عن المتغيرات 
عند الإعلان عن متغير يجب أن تحدد أسم لهذا المتغير ونوعية البيانات التي سوف 
يختزذها. تستخدم للاإعلان عن المتغيرات الكلمة المحجوزة ص1۳( متبو عة باسم المتغير ثم 
الكلمة المحجوزة و۸ متبوعة بنوع البيانات التي سوف يتم اختزانها في هذا المتغير. 


Dim aNumber as Integer 
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هذا السدطر من الشفرة يخبر البرنامج أنك تر يد الإعلان عن استخدام متغير أسمه 
A Number‏ لیختزن بیانات نوعھا ۲ععم)م[. ونتیجة لتعر یف المتغیر e‏ طادصں .ج کمتغیر 
من النوع م عم).] فهو يمكنه فقط اختزان قيم رقمية صحيحة فقط, 
2 تخصيص المتغير 
لتخصيص قيمة ليتم اختزانها في المتغير تستخدم علامة = والتي قد تد عي أحيانا 
معامل التخصيڍص „assignment Ope!ai01r‏ 
aNumber = 42‏ 
هذا السطر من الشفرة يقوم باختزان الرقم ٠١‏ داخل المتغير المسمى إعطصإu×ه.‏ 
3 لإعلان عن المتغيرات وتخصيص قيم افتراضية لها 
كما تعرفنا سابقا يمكننا الإعلان عن المتغير في سطر ثم تخصيص قيمتة في سطر 
آخر» وهذا ما قد ينتج عنه خطأ إذا أردت أن تقوم بتخصيص قيمه المتغير قبل الإعلان عنه. 
لهذا السبب فمن المستحسن أن يتم الإعلان عن المتغير وتخصيص قيمته في سطر 
واحد. حتى ولو لم تكن تعرف ما هي القيمة التي سوف تختزن في المتغير يمكنك تخصيص 
قيمة افتراضية. السطر التالي يبين كيف يمكن للمستخدم أن يختزل السطرين المذكورين في 
1.1.1 1.13.1.1 و 1.13.1.2 مرة واحدة. 
Dim aNumber As Integer = 42‏ 
4 تدريب» الإعلان عن المتغيرات وتخصيص قيم لها 
في هذا التدر يب سوف نحاول أن نقوم بكتا بة برنا مج يو ضح ما سبق حيث يتم 
الإعلان عن المتغيرات وتخصيص قيم لهاء ثم إظهار ها على الشاشة في صندوق ر سائل 
×80 ءءء . بداية قم بإنشاء مشروع جديد متبعا الخطوات التالية: 


0.قم بفتح 8251 V1sua1‏ من قائمة 841۲ . 

.New Project رjتخİ‎ File ةnئla 21.من‎ 

2.من القوالب الظاهر ة في liفذة .WindowsApplication رتخİÎ New Project‏ 
3.قم بتخصيص أسم للمشرو ع في الخانة مصه" وليكن كع ط۷۲1 . 
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قم بكتابة شفرة البرنامج متتبعا الخطوات التالية: 

4.أنقر مرتین فوق النموذج المعروض. تظهر نافدة تحریر الشفرة Code Editor‏ علٰی 
مقطع من الشفرة معنون ب .۴٥۲۳١_1044‏ هذا المةطع وأترابه يطلق عليه أسم 
الإجراء ١٣المءهإ۴‏ وهو يحتوي التعليمات التي سوف تنفذ عند تحميل النموذج إلى 
كر ة الخا ي 

5.في الإجراء 1020 ۴١۲۳"_‏ قم بكتابة الشفرة التالية: 


Dim anlInteger As Integer = 42 
Dim aSingle As Single = 39.345677653 
Dim aString As String = "I like candy" 


Dim aBoolean As Boolean = True 

يعرف هذا الكود أرب عة متغیرات من أرب عة أنواع مختل فة هي anlInteger‏ 

متغير من النو ع ۲عععا"! و عاعما5ه متغير من النوع ماعما؟ و عما٣ا5ه‏ متغير 

من النوع S۲1٣‏ و 8001ھ متغير من النوع 8001٥4۸‏ ویتم تخصیص ڈیم 

مناسبة لهم كلا في سطر تعريفه. 

قم بكتابة الشفرة التالية أسفل الشفرة السابقة. 

MsgBox (anlInteger) 

MsgBox (aSingle) 

MsgBox (aString) 


MsgBox (aBoolean) 


End 

تقوم الس طور الأرب عة الأولى من هذه الشفرة با ستخدام الدالة ٣10امں؟‏ 

المسماة ×>80عء[N‏ و هي الوظيفة المسئولة عن صناديق الر سlئJ Message Box‏ 
بإظهار قيم المتغيرات في صناديق رسائل. بينما يفيد السطر الأخير بإنهاء البرنامج. 

قم بضرب المفتاح ۴5 من لوحة المفاتيح أو أختار عدذععuطء‏ tإهSt‏ من القائمة 

Debug‏ لتشغيل البرنامج. عند تشغیل البرنامج تظهر قیم المتغيرات في صناديق الر سائل»› 

قم بالنقر على المفتاح )0 في كل صندوق حتى يغلق الصندوق ويفتح الصندوق الذي يليهء 

بعد الصندوق الرابع يتم إغلاق البرنامج. 
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2 أنواع البيانات 

أنواع البيانات في عإوه8 ںو تحدد ما هي القيم الممكن اختزانها في المتغيرء 
وكيفية اختزانهاء ونوعية العمليات الممكن إجراءها عليها. 

لماذا هناك أنواع عدة من المتغيرات؟. 

دع نا نذ كر بهذه الطري قةء لو أذ نا لدي نا ثلا ثة متغيرات» اثنان من هذه المتغيرات 
رقميين والثالث عبارة عن أسم» يمكن القيام بعمليات حسابية باستخدام المتغير ين الرقميين»› 
أن پستخدم هذا المتغير. 
3.1. أنواع البيانات الرقمية 

معظم برا مج الحاسوب تتعامل مع الأرقام. ولما كان هناك أنواع عديدة من الأرقام 
فبالتالي تمتلك یه8 [وںء۷1 أنواع عدة من البيانات الرقمية. 

تنقسم البيانات الرقمية إلى: 


البيانات الرقمية الصحيحة :1ntegra1 Numeric 1 yps‏ و هي تلك البيانات 


الرقم ية التي لا تحتوي على علامة عشر يةء و هي بدور ها تنقسم إلى عدة أنواع يبيذها 
الجدول التالي: 


۳| 1| _ بایت(۸بیت)‎ | Byte | 
ابات( | )6535 ا‎ | Short | 
ا‎ 9425 | HE | MIRIBE 
=. TMB] TOLD | UO | 


البيانات الرقم ية غير الص حيحة :Non-integral Numeric Types‏ و ھي 
البيانات الرقمية التي تحتوي على كسور أو علامات عشر ية. وتنقدم هذه النوعية من 
البيانات إلى نوعين يبينهما الجدول التالي: 


+3.4028235E+38 +1.401298E-45 


+4.94065645841246544E-324 | +1.79769313486231570E+308 
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1.1.2 أنواع البيانات اللفظية 

البيانات اللفظ ية هي تلك البيانات ال تي تتكون من الحروف أو الأرقام (يشترط من 
استخدامها مع الأرقام» عدم استخدام هذه الأرقام في عمليات حسابية) أو العلامات الخاصة 
متثل & أو $ أو المسافات الفارغة. 

يمكن تمثيل البيانات اللفظية بنوعين من البيانات هما: 


6.النوع :٤13۲‏ ويستخدم لحفظ حرف واحد فقط. 


7.النوع 51۲108: ويستخدم لحفظ عدد من الأحرف. 


أنواع أآخرى من البيانات 

يستخدم ٥إوه8‏ [هںو۷1 أنواع أخرى من البيانات لتمثيل أشكال مختافة من القيمء 
سنتعرف على معظم هذه الأنواع أثناء الفصول القادمةء لكن هناك بعض الأنواع التي يجدر 
الإشارة إلي ها م ثل النوع عه( الذي يس تخدم لح فظ بيانات التار يخ والز من» والنوع 
B001‏ الذي يستخدم في تمثيل قيمتين أحدهما تنفي الأخری مثل مeںإ۲‏ و میا۾۴. 

كما يجب الإشارة إلى نوع البيانات عه زط0 الذي ييح لك اختزان بيانات مجهولة 
النوع ثم تعريفها في مكان آخر من البرنامج. 
1.3 البيانات النصية 

ليست كل البيانات التي يتعامل مع ها المبرمج من النوع الرةمي» بل يو جد نسبة 
معتبرة من البيانات النصية يتعامل معها المبرمج. يستخدم نوع خاص من البيانات يسمى ال 
trin‏ للتعا مل مع البيانات النصية. يس تخدم النوع عما)؟ لتمذيل سلسلة من الرموز 
النصية وإم هط مثل الحروف والأرقام والرموز الخاصة والمسافات. 

يتم تعر يف ال- عم بذفس الطريقة التي يتم بها تعر يف المتغيرات الرقمية أي 
باستخدام الكلمات المحجوزة 01۳ و وء۸. السطر التالي يبين تعريف لمتغير نصي. 


DIM @ASEELAGT AS SEELRO = THIS. LS. SEEING" 
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عند تخصيص نص لمتغير من النوع ال- عما)؟ يجب و ضع النص بين علامتي 
تنصيص (" "). 

يمكن كذلك تخصيص قيمة متغير نصير بواسطة متغير نصي آخر مثل المبين في 
الشفرة التالية. 


DIM, ãStEINGS AS: STELNG: = "ThIS LSa SCEEFILRGO™ 


Dim bString As String = " "‏ 
BDSEEIRNGS 3 :ASTEEING‏ 
في الشفرة السالفة المتغ ير عماع)؟ط يتم تخص يصه ليس اوي القي مة المختز نة في 
المتغير ع١45†1.‏ 


يمكن استخدام علامة (&) لدمج متغيرين نصيين معا في متغير واحد كما هو مبين 


فى الشفرة التالية. 
Dim aString As String = "Across the Wide"‏ 
BIM BSEELING. AS SEEING SY "MISSOUEL™‏ 
Dim €StEINnG AS StEINGg =‏ 


cString = aString & bString 

في المثال السابق يتم تعر يف ثلاثة متغيرات من النوع عدزع)؟ ثم يتم تخصيصها 

على التوالي بالقيم "eل¡W‏ طا sوەAr"‏ و " م11" للمتغیر ین الأولین؛ تم يتم تعر يف 

المتغير الثالث بأنه محصلة دمج المتغيرين الأول والثاني. هل تعلم ما هي القيمة المختزنة في 
المتغير الثالث؟ أنها N11"‏ ءل¡ "Across the‏ نعم بلا مسافة فاصلة بينهماء وذلك لأن 

المتغير الأول عماج لا يحتوي في نهايته على مسافة فارغةء كما لا يحتوي المتغير الثاني 
trin‏ على مسدافة فار غة في بدايته. لعلاج هذه المسألة يتعين علينا | ستخدام المسافة 

الفارغة " " كما هو مبين في الشفرة التالية. 
Dim aString As String = "Across the Wide"‏ 


Dim BStEEING Aš§ SEEING = "Nile" 


Dim cString As String = " " 


CSEEIRNG = @ASEELRGT E TT TE BSEELRG 
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الآن حان و قت التدر يب. سنقوم بتجر بة ما ناقشناه في ما سبق عن د مج المتغيرات 
النصية. أتبع الإجراءات التالية لإعداد التطبيق الذي سيتم من خلاله إختبار دمج المتغيرات. 


28.من القائمة ع۴11 أنقر فوJ .New Project‏ 


pşã Windows Application lies Template رlتaخİÎ‎ New Project ةذli‎ ja.29 


0.أنقر مرتين فوق النموذج ليظهر ا .Code Editor‏ 


1. في إجراء الحدث 4 ۴١۲٣1.104‏ قم بكتا بة الشفرة التال ية لتعرف أربعة متغيرات 


0 ية وت ا 
Dim aString As String = "Concatenating"‏ 
Dim BSEEINnG AS SEEING = WILthout™‏ 
Dim cString As String = "With"‏ 
Dim dString As String = "Spaces"‏ 


قم بإضافة الشفرة التالية عقب الشفرة السابقة مباشرة حتى تستخدم الوظيفة 
M28 0×‏ لإظهار نتائج دمج المتغيرات. 


MsgBox (aString & bString & dString ( 


U 


Displays "ConcatenatingWithoutSpaces" 


MSGTBOxX(aASEEINGT & " "™ & CSEEING & ™ " & QASEEFILNG 


U 


Displays "Concatenating With Spaces" 
قم بضرب المفتاح ۴5 لتتذ يذ البرنا مج» تلا حظ أن صندوق الر سالة الأول‎ 
بیذما یعرض صندوق الر سالة‎ oncatenatingW thou tS مaces تعرض الر سالة‎ 
.Concatenating With Spaces ةlluرلl الثاني‎ 
4.المصفوفات ور۸۲۲4‎ 


سنتعرف الآن عن المصفوفات وره۲إ۸ التي تستخدم لاختزان مجموعة من القيم. 
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في ما سبق عرةف نا أن المتغيرات تس تخدم لاختزان أنواع مختل فة من البيانات لي تم 
| ستخدامها في البرا مج. هناك نوع آ خر من المتغيرات تس مى المص فوفة ره۸]۲ وال تي 
تستخدم لاختزان قيم متعددة من نفس النوع. 
لنفترض ملا أنك تكتب برنامج عن فريق كرة القدم وتريد اختزان أسماء اللاعبين» 
عندئذ قد تضطر للإعلان عن أحد عشر متغير» متغير لكل لاعب» أو الأسهل أن تعلن عن 
مصفوفة مستخدما الشفرة التالية. 
Dim players() As String‏ 
في هذه الشفرة قم نا بالإعلان عن مص فوفة تختزن بيانات نص يةء فالقو سين () 
يس تخدمان لإعلان المصفوفةء وعدم وجود قيمة عدد ية يعني أذنا لا نعرف عدد القيم التي 
سوف تختزن في المصفوفةء أما في حالة ما إذا كنا نعرف عدد المتغيرات فيمكذنا أن نعدل 
Dim players (1*) As String‏ 
لا يجب أن يخدعك العدد ٠١‏ الذي أضفناه بين القوسين» فلا تنسى أن الحاسوب يعد 
من الصفر وبذلك يكون عدد القيم التي يمكن إختزاذها في هذه المصفوفة - و هو ما يمى 
بطول المصفوفة - أحد عشر قيمة. 
3.4.1 تخصيص قيم للمصفوفة 
كما في أنواع البيانات الأخرى يلزمنا أن نقوم بتخصيص قيم للمصفوفة. لعمل ذلك 
یجب اسخام رق يشير إلى مكان اة التي سرف تخترن فى المضفرفة كما هو مين قا 


players (0) = "John" 


players (3) = "Bart" 

في الشفرة السابقةء القيمة [٠1١‏ تم تخصيصها لأول عنصر في المصفوفة (العنصر 

رقم صفر) بينما تم تخصيص القيمة 8٠)‏ للعنصر الرابع للمصفوفة (العنصر رقم ثلاثة). 

[يس من الضروري إختزان عنا صر المص فوفة بالترتيب» و في حالة عدم تخصيص قد مة 
للعنصر فإن قيمته تصبح هي القيمة الإفتراضية لنوع البيانات. 

يم كن أيضا الإعلان عن المصفوفة وتخصيص يم عناصرها في سطر 
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Dim  playeEES{(): A5 Integer = {l, 2, 3, 4, 5, o, TI, B8, 9} 

حيث تستخدم الأقواس من النوع إ لتخصيص القيم كما تستخدم الفاصلة (ء) للفصل 

بين القيم. كما تلاحظ أن طول المصفوفة لم يخصص حيث أن طول المصفوفة يتم تخصيصه 
عن طريق عدد العناصر المحتواة بين الأقواس. 


1...2 استرجاع القيم المختزنة في المصفوفة 
كما استخدمنا الأرقام لنبين المكان الذي سوف يتم اختزان القيمة فيه في المصفوفةء 
سوف نس تخدم الأرقام مرة أخرى لتعي ين القي مة المراد | سترجاعها من بين ةيم عناصر 
المصفوفة. 
Dim AtBat As String‏ 
AtBat = players (3 (‏ 
5.التحويل بين أنواع المتغيرات 
كثيرآ ما يحتاج المبرمج إلى تحو يل بيانات مختز نة في نوع معين من البيانات إلى 
نوع أخر. فيما يلي نتناول الطرق التي يمكن استخدامها لأداء مثل هذا العمل. 


3.5.1 . تحويل المتغيرات إلى متغيرات نصية 

كل المتغيرات الم تخدمة في یه8 [هںء۷1 يم كن تحوبل ها إلى متغ ير نص ي 
ا ر کے ا غ که که ا ف اتون قرم من ارغ 
Integer‏ إل نوع „String‏ 


Dim anlInteger As Integer = 54 


MsgBox (CStr (anlInteger) ) 


32 التحويل بين المتغيرات الرقمية 


تس تخدم مجمو عة من الوظائف للتحو يل ب ين البيانات الرقم ية بذ فس الطري قة 
المستخدمة مع الوظيفة )5). الجدول التالي يبين هذه الوظائف ونوعية البيانات التي تحول 


إليها. 


۴ نوع البيانات التي تحول إليها 
CBool(expression)‏ 


CByte(expression) 
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4 العمليات على المتغيرات 

يتم استخدام المتغيرات في البرامج لاستخدامها في العمليات المختلفة. هذه العمليات 
قد تكون عمليات حم ابية م ثل الج مع والضرب و ما إلى ذلك أو قد تكون عمليات مقار نة 
منطقية. فيما يلي نتعلم أساسيات استخدام المتغيرات في العمليات. 
1 العمليات الحسابية 


تعڌمد العمليات الحسابية على كتابة المبرمج لذ عبير Expression‏ دا خل برنام جه 
A‏ ا ا ار هر ار عن اين ار 
5+4 


هذا التعبير ير جع القيمة ۹ و هو يتكون من جزأين الحدود ولره]ءم0 و هي اليم 
التي يتم اجراء العملية عليه»ء والعامل Operator‏ والذي في هذه الحالة عامل الجمع )( 
الذي يحدد نوع العملية الحسابية المطلوب إجراءاها. 
1 اسخدام القيم الفرتجعة فن التغيرات 

حتی یصبح التعبير مفيداً في البرنامج» لابد من اختزان القيمة المرتجعة عن التعبير 
في متغير. الشفرة البسيطة التالية تبين طريقة لاختزان القيمة المرتجعة عن تعبير: 


Dim anInteger As Integer = 5 + 4 
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في هذه الشفرة ي تم الإعلان عن متغ ير إمععامآمه من النوع الرة مي الص حيح 
٣eع te‏ ثم يتم تخصيص القيمة المرتجعة من التعبير 4+5 باستخدام علامة التساوي (=) 
لیتم اختزانها في هذا المتغير. 
12 .4 .العاملات الحسابية 


الاستخدام الأكثر شيوعا للتعبيرات هو لإنجاز العمليات الحسابية مثل الجمع والطرح 
والضرب والقسمة. الجدول التالي يبين العاملات المستخدمة في العمليات الحسابية. 


العام 
EES‏ 


| برجع الفرق بین رقمین 
E OT‏ 
£ 


يجب الأخذ في الاعتبار أن نوع البيانات المستخدمة في التعبير يمكنها أن تؤثر على 
القومة المرتجعة من التغبيز. فمثلا قىدمة زقمين يذتج عذها قيمة لا تمثل كامل الرقم الناتج. 
فمثلا إذا قمنا بقىدمة ۳ على ۲ فان الناتج سوف يکون 1.5. اذا حاولت أن تخصص القيمة 
المرتجعة من هذا التعبير لمتغير من النوع إمعم)م] فإن الناتج سيتم تقريبه لأقرب عدد 
صحيح آي يكون النا تج ٠١‏ لذلك يس تحسن أن نقوم باختزان خارج القسد مة على و جه 
الخصوص في متغير من النو ع eااuه0.‏ 
1.1.3. تدريب: تنفيذ العمليات الحسابية 
2. من قاد مة ۴1٥‏ اختار New P٣٥٥۲‏ و من تبو یب القوالب هام٥٦‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
3.قم بسحب ورمي عنصر التحكم ×0ط)×٠1‏ مرتين فوق النموذج. 
4 .قم بسحب عنصر تحکم Butt‏ ورميە فوق النموذج. 
5.أذقر نقراً مزدوجا فوق عنص ر التحدكم ١٥ا8‏ لتظ هر نافذة محرر الشفرة ٣0de‏ 
Editor‏ . 
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6.في إجراء الحدث )ء1ا٣€_۸1٥)ا8u‏ قم بكتابة الشفرة التالية: 


Dim A As 


9 
O 
G 
o. 
0 
1 


Textboxl. Text 


Dim B As 


Û 
9) 
G 
o 
0 
1 


Textbox2. Text 


MsgBox (A + B) 
MsgBox (A - B) 
MSGEOX(A * B) 
MsgBox (A / B) 


في السطرين الأوليين نقوم بالإعلان عن متغيرين ۸ و 8 والذي سوف نستخدمها 
لاختزان القيم الرقم ية ال تي نحتاج ها لإتمام عمل ية الجمع. ثم نس تخدم خا صية 1٥×٤‏ لكل 
×0 ط×۲ اللذان أضفناهما إلى النموذج لتلقي قیم ۸ و 8. 
في ال طور الأربعة الأخيرة يتم إنشاء أربعة تعبيرات لكل عمليات من العمليات 
الحسابية الأربعة الرئيسيةء تم نستخدم الوظيفة ×0 8عء™ لإظهار الناتج. 
أضرب المفتاح ۴5 لتنفيذ البرنامج. 
قم بكتابة رقم في كل صندوق نصي من المبتة إلى النافذة ۴٥۲٣1‏ ثم أذقر 
المفتاح 1١٥0ا»8‏ لتنفيذ العمليات الأربعة وإظهار النتائج. 


2 لعمليات المنطقية 

في هذا الجزء نتعلم كيف نقوم بالمقارنات المنطة ية با ستخدام الت عبيرات. سنستخدم 
في هذا النوع من التعبیرات ما یسمی بعاملات المقار نة Comparison Operators‏ هذ 
النوع من العاملات لا يرجع قيم عددية ولكنه يرجع قيم من النو ع ال م01e4ه8‏ أي ۲u‏ و 
2s‏ ۴. تستخدم هذه العاملات بصورة متكررة في عملیات اتخاذ القرارات وہ 0oایi›مD‏ 
والتي سنتعرض لها في جزء لاحق. 


الجدول التالي يبين عاملات المقارنة المختلفة. 


إوصفه )ثل 


5 = 4 (false) 


يرجع قيمة م٣1‏ إذا تساوي حدي المقارنة وقيمة مه۴ إذا لم يتساويا. (false)‏ 5 = 4 


4 = 4 (true) 


يرجع قيمة م إذا لم يتساوي حدي المقارنة وقيمة مو[ه۴ إذا تساويا. (true)‏ 4 >< 5 
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E N EEE 
4 <> 4 (false 

5 > 4 (true) 
4 > 5 (false) 
4 > 4 (false) 
5 < 4 (false) 
4 < 5 (true) 
4 < 4 (false) 
5>= 4 (true) 
4 >= 5 (false) 
4 >= 4 (true) 
5<= 4 (false) 
4 <= 5 (true) 
4 <= 4 (true 


يرجع قيمة عں۲ إذا كانت قيمة الحد الأيسر أكبر من قيمة الحد الأيمن وقيمة 
False‏ اذا حدث غير ذلك. 


يرجع قيمة مں٣٣‏ إذا كانت قيمة الحد الأيسر أصغر من قيمة الحد الأيمن وقيمة 
۴6 إذا حدث غير ذلك. 


يرجع قيمة عں۲ إذا كانت قيمة الحد الأيسر أكبر من أو تساوي قيمة الحد الأيمن 
وقيمة مو][ه۴ إذا حدث غير ذلك. 


یرجع قیمة عںuإآ‏ إذا كانت قيمة الحد الأيسر أصغر من أو تساوي قيمة الحد 
الأيمن وقيمة مو[ه۴ إذا حدث غير ذلك. 


1 تدريب: استخدام عاملات المقارنة 

7. من قاد م ۴1e‏ أختار New °٣r٥ز ece‏ و من تبو یب القوالب ھام ط٥٦‏ آختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

8 .قم بسحب ورمي عنصر التحكم ×۲۴×)(0 مرتين فوق النموذج. 

9 .قم بسحب عنصر تحکم ۸١٥)اا8‏ ورمیه فوق النموذج. 

0.أذقر نقرآً مزدوجا فوق عنص ر التحدكم ١٥ا8‏ لتظ هر نافذة محرر الشفرة ٣0de‏ 
Editor‏ . 

1في إجراء الحدث )عنا_۸1٥)ا)‏ 8 قم بكتابة الشفرة التالية: 


Dim A As CDbl (Textbox1.Text) 


5 
O 
G 
o 
0 
1 


Dim B As Double = CDbl (Textbox2.Text) 
MsgBox (A > B) 
MsgBox (A < B) 


MsgBox (A = B) 

في السطرين الأولين يتم الإعلان عن متغيرين من النوع ال ع1ا 0u‏ هما ۸ و 8» 

حيث يتم تخصيصهما من خلال الخاصية )×1 لعنصر التحكم ×0ط)×ع1 بعد تمرير هما من 

خلال الوظيفة C51‏ لتحويلهما من النوع عمذا)؟ - الذي يميز الخاصية 1٥×٤‏ - إلى النوع 
.Double‏ 
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في السطور اللاحقة يتم استخدام الوظيفة ×ه8عءN™‏ لإظهار نتيجة تلاثة أنواع من 
المقارنة 


أضرب المفتاح ۴5 لتنفيذ البرنامج. 
قم بكتابة رقم في كل صندوق نصي من المثبتة إلى النافذة ۴٥۲٣1‏ تم أذقر 
المفتاح 1١٥)اں8‏ لتنفيذ عمليات المقار نة وإظهار النتائج التي ستکون أما eں٣۲‏ أو 


.False 


Procedures تIءlرڄ1.55‎ 

في ما يلي سنتعلم ك يف ننش ئ إجراء خاص ب نا كيذ ية إنشاء بارمترات هذا الإجراء 
بحیث یکون هذا الإجراء يحتوي شفرة يمكن استدعاءها من مکكان آخر في البرنامج. 

يمكننا أن ننظر إلى الإجراء على أنه قطعة من الشفرة التي يمكنها أن تخبر البرنامج 
أن يقوم بفعل معين. وبالر غم من أنك قد لا تكون قادرا على استيعاب هذه الفكرة إلا أنك قد 
ق مت با ستخدام الإجراءات من خلال في التدريبات والأمثلة ال ابقة. فمثلا الوظي فة 
M8 0×‏ هي عبارة عن إجراء التي تقوم بفعل محدد هو إظهار الرسائل. 

وبالر غم Visual Basic ja‏ تحتوي على العديد من الإجراءات النافعةء إلا انه قد 
تحتاج في ب عض الأحيان لإجراء لا تتضم نه ءزوه8 |اهںو¡۷؛ فمثلاً تتض من إهuئ¡۷‏ 
Basic‏ الوظيفة MsgBox‏ التي تقوم باظهار رسالة على الشاشة» لكذها لا تتضمن وظيفة 
لإظهار رسالة على الشاشة مصحوبة بصورة. في حال ما إذا أردت مثل هذه الوظيفة سيكون 
عليك إنشاء إجراء لها. 


1. ما هو الإجراء؟ 

الإجراء هو كتلة من الشفرة التي يمكن استدعاءها وتنفيذ ها من خلال أجزاء أخرى 
من الشفرة. بص ورة عا مةء الإجراءات تحتوي على الشفرة اللاز مة لتنفيذ ها عمل ية وحيدة 
محددة. على سبيل المثال يمكن أن يكون لديك إجراء يسمى أل,uه؟ره]‏ يحتوي على شفرة 


لتشغيل ملف مو سيقي من النوع مره س. على حين يمكنك كتابة شفرة لتشغيل الصوت كل 


مرة يحتاج برنامجك إصدار صوت» من الأفضل في هذه الحالة أن تقوم بإنشاء إجراء يمكنه 
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عمل هذه المهمة - إصدار صوت - تم استدعاءه بعد ذلك من أي مكان في البرنامج يتطلب 
أداء مهمة إصدار الصوت. 

يتم تشغيل الإجراء عن طريق استدعاءها عم1ا[ه٣‏ في الشفرة. فمثلاً لتنفيذ الإجراء 
S0und‏ ها كل ما يتطلبه الأمر إضافة سطر في المكان المخصص في البرنامج لصوت 
يكتب فيه أسم الإجراء كما يلي. 

PLaVSouUNGQ 

عند ما يصدل البرنا مج لهذا الس طرء يقوم بالانتقال إلى الإجراء إ١uه؟ره]۴‏ منفذا 
الشفرة التي يحتويها هذا الإجراء وعند الانتهاء من تنذيد شفرة الإجراء ينڌقل البرنامج مرة 
أخرى للسطر التالي للسطر الذي ذكر فيه أسم الإجراء dإمuه؟رها۲.‏ 

يمك نك ١‏ ستدعاء العد يد من الإجراءات ك ما يحلو لك. وعندئد ڍ تم تنذ یذ الإجراءات 
المختافة بذات الترتيب الذي قمت با ستدعائها ذيه. فمتلاأ لنفترض أن لد يك إجراء آخر غير 
Play Sound‏ هو الإجراء tإayResuامisp(‏ وأنك ترید تنفیذه بعد الإجراء dوں0؟ره]۶۴»›‏ 
كل ما تحتاجه عندئذ هو كتابة أسم الإجراء الآخر بعد الإجراء الأول كما يلي. 


PlaySound 
DisplayResult 


2. أنواع الإجراءات 


هناك نوع ين من الإجراءات: الوظائف ومم†ءمن؟ والروتينات الفرع ية 
ubroutines‏ (وهذه الأخيرة قد تد عى أحيانا وطن للاختصار). الوظيفة ترجع قيمة إلى 
الإجراء الذي استدعاهاء على حين والروتينات الفرعية تقوم بتنذيذ شفرة ذقط. يتم استدعاء 
الروتينات الفرعية بمجرد كتابة أسمها فقط كما في المثال التالي. 
DisplayResults‏ 
الوظائف تختلف في عمل ها عن الروتينات الفرع يةء ف هي لا تقوم بتنذ يذ الشفرات 
فحسب» لكذها تر جع أيضا قيم. لنتذيل وظيفة تسدمى )ع 6124,0۴۷ التي تر جع ر قم 
صحيح يشير إلى اليوم في الأسبوع. لاستدعاء هذه الوظيفة يجب أول الإعلان عن المتغير 
الذي سوف ي تم الاحتفاظ ف يه بالقي مة المرتج عةء ثم نقوم بتخص يص القي مة المرتج عة لهذا 
المتغير في سطر آخر كما هو مبين فيما يلي. 
Dim Today As Integer‏ 
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Today = GetDayOfWeek 
لحين‎ Today في هذا المثال» القيمة المرتجعة من الوظيفة يتم اختزانها في المتغير‎ 
استخدامها لاحقا.‎ 


3.!إنشاء الإجراء 

عند إنشاء إجراء نقوم في البداية بالإعلان عن الإجراء. الإعلان عن الإجراء يعني 
العديد من الأشياءء فهو يحدد إذا كان الإجراء وظيفة أم روتين فر عي كما يحدد أسم الإجراء 
الذي سوف يستخدم للاستدعاء والبارمترات المطلوبة في الإجراء. الشفرة التالية تبين إعلان 
بسيط عن إجراء. 


Sub: MyYFLESESUB 0 
End Sub 


الكلمة المحجوزة ان تخبر البرنامج أن هذا الإجراء من النوع طں؟ وبالتالي فهو 
لا ير جع قيم. أسم الإجراء هو اں؟اء۲ N۴‏ بيذما تشير الأقواس الفار غة ( ) إلى أن هذا 
الإجراء لا يحتاج بارامترات. وأخيرا تأ تي الكل مة المحجوزة اں؟ 4 مع لتعلن انتهاء 
الإجراء. الشفرة إلي سوف يقوم هذا الإجراء بتنفيذها يتم كتابتها بين هذين السطرين. 

الإعلان عن الوظائف يشبه الإعلان عن الروتينات الفرعية لكن مع إضافة صغيرة 
هي تعريف نوع البيانات للقيم التي سوف يقوم الإجراء بإرجاعها. فمثلاً الوظيفة التي سترجع 
قيمة من النوع إمعم)م! تتخذ الشكل التالي. 


Function MyFirstFunction() As Integer 


EDA. .FURNGELODN 

الكلمتين المحجوزتين إءع6ا"] ء4 تشير إلى أن الوظيفة ستقوم بإرجاع قيمة من 

النوع إمععم[. لاسترجاع القيمة من الوظيفة تستخدم الكلمة المحجوزة ٣إںمR‏ كما هو 
مبين في المتال التالي. 

Function GetTheNumberOne () As Integer 


Return 1 


End Fünetion 


سوف يقوم الإجراء بإرجاع القيمة .١‏ 
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1.15.3.1 تدریب: إنشاء إجراء 
42. من قاد م ۴1٥‏ اختار ۲٥eز٥٣P New‏ و من تبو یب القوالب ھام ط٥٦‏ أختار 


.0K) تم أنقر المفتاح‎ Windows Application 
.Code Editor ةذli 3.أنقر نقرآً مزدوجا فوق النموذج حتى تظهر‎ 


4. قم بالبحث عن السطر الذي يحتوي على sیها٣‏ ۴14 و هو ما يم تل نهاية الشفرة 
المسئولة عن بناء النموذج. قبل هذا السطر مباشرة قم بكتابة الشفرة التالية. 
Function GetTime() As String‏ 


Return CStr (Now) 


ERQ FURCELOR 
Visual Basic ي„‎ Built-in Procedure ja 5.هذہ الوظڍ فة تس تخدم إجرlء متض‎ 
لتحويلها إلى قيمة‎ C5٤۲ تستخدم لإرجاع القيمة الحالية للوقت. ثم تستخدم الوظيفة‎ 
نصية. هذه القيمة هي التي سوف ترجع من الوظيفة.‎ 
6.فوق الوظيفة التي قمت بإضافتها في الخطوة السابقة أضف ما يلي من شفرة.‎ 


Sub DisplayTime () 
MsgBox (GetTime) 
End Sub 


7.هذه الشفرة تم ثل روتين فر عي يقوم با ستدعاء الوظيفة 6٥11۳٠‏ ويعرض النا تج 
المرتجع عن هذه الوظيفة في صندوق رسائل. 

8.أخير قم بإضا فة هذا الس طر التالي إلى الحدث ۴١۲٣١1_1024‏ الذي يس تدعي 
الروتين الفرعي عص11۳رهامء1(. 


DisplayTime ()‏ 
9.أضرب المفتاح ۴5 لتنفيذ البرنامج. 


حيذما يبدا البرنامج» إجراء الحدث ل۲۳1_02٥۴‏ يتم تشغيله. هذا الإجراء يقوم 
با ستدعاء الروة ين الفر عي هنآ رهامء0؛ فيقوم الروة ين الفر عي با ستدعاء الوظي فة 
مم61 والتي بدور ها تقوم بإرجاع قي مة نصية تم تل الو قت الحالي للروتين الفر عي 
مما ayاispط‏ الذي يقوم بعرض هذه القيمة مستخدما صندوق الرسائل. 
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4.,البارامترات 
مع الوقت سنحتاج أن ذمد الإجراءات ببعض البيانات. فمثلا الإجراء dلرuهS؟ره]۲‏ 
قد نحتاج أن يقوم بإ صدار صوت من ض من عدد من الأ صوات. يم كن تحد يد أي من 
الأصوات سوف يقوم بإصدار ها الإجراء dرuه؟ره!۴‏ باستخدام البارامترات. 
تتشابه البارامترات مع المتغيرات. فهي لها نوع وأسم كما أنها تختزن البيانات مثلها 
مثل المتغيرات تماما. لكنها تختلف عن المتغيرات اختلافين أساسيين هما: 
يتم الإعلان عن البارامترات داخل الإعلان عن الإجراء وليس بصورة مستقلة 
كما في حال المتغيرات. 
البارامترات تستخدم فقط داخل الإجراءات المعلنة بداخلها. 
البارامترات يتم الإعلان عنها مع الإعلان عن الإجراء داخل الأقواس التي تتبع أسم 
الإجراء. تى تخدم الكل مة المحجوزة ء۸ لتعر يف نوع بيانات البارام تر ويكون البارام تر 
مسبوقا بكلمة ByVal‏ المحجوزة وهي الكلمة التي تضاف آليا بواسطة 1ی82 u41ںو]۷‏ إذا 
سهوت عن إضافتها. 
الشفرة التالية تبين الإعلان عن البارامترات في إعلان الإجراء. 


Sub PlaySound (ByVal SoundFile As String, ByVal Volume 
As Integer) 


My.Computer.Audio.Play (SoundFile, Volume) 
Ehd Sub 
وعند استدعاء مثل هذا الإجراء تستخدم الشفرة التالية:‎ 


PLIAYVSOUNRQA(TSESEtEUP WAV", 1L) 


0. من قاد مة ۴1e‏ أختار New °۴r٥ز ece)‏ و من تبو یب القوالب ھام ط٥٦‏ آختار 


.0K) تم أنقر المفتاح‎ Windows Application 
.قم بسحب ورمي عنصر التحكم ×0ط×٥1 مرتین فوق النموذج.‎ 51 


2 .قم بسحب عنصر تحکم Butt‏ ورمیە فوق النموذج. 
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3.أنقر نقرآً مزدوجا فوق عنصر التحکم B٥11‏ حتی تظھهر liذة .Code Editor‏ 
54.بعد Su‏ ”ع٤‏ في إجراء )1ا٣ 8u))0٥۸1_‏ قم بإضافة الشفرة التالية. 


Function AddTwoNumbers (ByVal N1 As Integer, ByVal N2 As 
Integer) 


As Integer 


Return NI1 + N2 


End EURCELOR 


55.في إجراء )ءذا©_۸1٥)t) Bu‏ أضف الشفرة التالية. 


Dim aNumber As Integer = CInt (Textbox1.Text) 


Dim bNumber As Integer = ClInt (Textbox2.Text) 


MsgBox (AddTwoNumbers (aNumber, bNumber) )‏ 
6.هده الشفرة تقوم بالإعلان عن متغيرين رقميين صحيحين وتقوم بتحويل القيم النصية 
المرتجعة من خاصية 1٠×٤‏ إلى أرقام صحيحة. يعقب ذلك تمرير القيم الصحيحة إلى 
الوظيفة كإەطادمصNuمس‏ آ44 ثم عرض القيمة المرتجعة في صندوق رسالة. 
8. قم بكتا بة رقم ين ثم اضرب المفتاح 1١٥)اں8‏ لتشا هد ر سالة تحمل حاصل جمع 
العددين. 
6., الحلقات 
الحلقات هي أدوات برمج ية تساعد الم تخدم على أداء عمل تكراري. وتد عم لغة 
ئ 1هuو۷1‏ استخدام أنواع مختلفة من الحلقات. وفيما بلي نتعلم كيف يمكن استخدام كل 
نوع من هذه الحلقات على حدا. 
l>1.16.1قû For — Next‏ 
عندما نقوم بكتابة برنامج قد نحتاج في بعض الأحيان لتكرار خطوة ما. على سبيل 
المتال لنفترض أنك تقوم بكتابة برنامج يقوم بعرض سلسلة من الأعداد على الشاشة. في هذه 
الحالة قد تضطر إلى كتابة عدد كبير من السطور التي تقوم بنفس الفعل. 
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For — من المرات الذي يحدده المستخدم سلفا, المتال التالي یبین کیف یمکن استخدام حاقة‎ 
.Next 
Dim i1 As Integer = 0 
EGE A <1 TOS: L0 
DisplayNumber (i) 
Next 


تبدا حذقة )×6× -۴0۲ بمتغیر عداد e[طھزvar‏ إunteەc‏ هو 1. هذا المتغير هو 
الذي تستخدمه الحلقة لعد عدد المرات المطلوب في ها تنفيذ ها. السدطر التالي For i=1 to)‏ 
0) يخبر البرنامج كم من المرات عليه أن يكرر الحلقةء أي أن على البرنامج أن يقوم 
بتکرار الحاقة من ۱ الى ۰ .١‏ وعلى هذا یتم تکرار السطور المحصورة بين ۴1 وحتى 
Nex)‏ من ١‏ إلى .٠١‏ وعند بلوغ عشر مرات تتوقف الحلقة عن تكرار المهام. 
16.1.1 تدریب: استخدام |Jl<لقö For - Next‏ 
59. من قاد م ۴1e‏ أختار New Prec‏ و من تبو یب القوالب ھام ط٥٦‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
60.قم بإدراج عنصري تحكم أحدهما من النوع 1٥×80×‏ والآخر من النوع ہټButt‏ 
غ ااکو ب 
أنقر نقراً مزدوجا فوق العنصر Button‏ يزظر .Code Editor‏ 
في الحدث kذءا٣_1١٥0)ا8u‏ أكتب الشفرة التالية: 


Dim i As Integer = 0 


Dim NumberOfRepetitions As Integer = 
CInt (Textbox1.Text) 


For i = 1 To NumberOfRepetitions 
MsgBox ("This line has been repeated " & i & " times") 
Next 
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قم بكتا بة ر قم في صندوق النص تم أذ قر المفتاح 8)٥١‏ سوف يظ هر 
l>1.16.2قة Do - Until  Do-While‏ 
سوف نتعلم الآن كيف يمكن استخدام الحلقة م1ازط۷ - 00 ونظيرتها الحلقة - 50 
11ل . في الجزء السابق تعلمنا كيف يمكن استخدام الحلقة ×٥×)‏ - إه۴ لتكرار أداء مهمة 
عدد من المرات المحددة. لكن ماذا إذا كان العدد المطلوب تكراره من المهام غير محدد بل 
یعتمد على تحقق شرط معین. تقوم الحلقتین eانطW-00‏ و 50-٤11‏ بالتکرار مع الأخذ 
في الاعتبار أن تتوقف عند تحقق شرط محدد سلفا. 
تر غب أن يتجاوز حاصل جمع هذه السلسلة الرقمية المائة. يمكن عندئذ استخدام حلقة -50 
مط كما هو مبين في الشفرة التالية. 
Dim sum As Integer = 0‏ 


Do While sum < 100 


sum = sum + 10 


Loop 
و‎ 00 W بتنفيذ الشفرة المحصورة بين انط‎ 50-۷11٥ في هذه الشفرة تقوم حلفة‎ 
م00 حتى يتحقق الشرط 00 1>ںء. فإذا تحقق هذا الشرط توقفت الحلقة عن التكرار.‎ 
Do While ةقذaJlè‎ «50 While ولا تختلف الحلفة [از) ل 0( كتير عن الحلقة‎ 
تظل تتكرر ما دام الشرط الخاص بها صحيحاء أما الحلفقة انا 50 فهي تظل تتحقق ما‎ 


7القرارات 


كثيراً ما يحتاج المبرمج إلى اتخاذ قرارات تتحكم في أداء البرنامج» كأن يختبر إذا ما 
العملية الحسابية غير مقبولة أو إذا كان لا يساوي الصفر أستمر في أداء العملية الحسابية. 
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إن م تل هذه القرارات يم كن معالج ته في iوه8‏ [هںء۷ با ستخدام العبارة 1f-‏ 
hen‏ وتوسعتھا hen - Else‏ ]1 والعبارة می2 †٥٥1ع5.‏ فیما يلي سنتعلم کیف یمکن 
استخدام مثل هذه العبارات في اتخاد القرارات. 


If- Then ةرابell1.17.1‎ 


تستخدم العبارة م11 - 1۴ لاتخاذ قرار بناء على تحقق شرط ما. الشفرة التالية 
تبین طریقة استخدام ٥ط‏ -1۴. 


Dim A As Integer = 7 


Dim B As Integer = 4 


If (A>B) Then 


MsgBox ("The Condition is true.") 
End TÊ 


في الشفرة السالفة نقوم بتعر يف متغير ين من النوع الحقيقي هما ۸ و 8 ونقوم 
بتخصيص قيمة لكل منهما على التوالي. ثم نستخدم العبارة 1f‏ لاختبار تحقق الشرط ۸<8 
تق ها افرط هر وسا يد كدق القرظ وهی الا ان تمر ها توق 
الرسالة بین Then‏ و .End If‏ 


إن قاعدة ا ستخدام وط۲ ۴] بسيطة للغايةء إذا ۴] تحقق الشرط اذا ۸٥ط۲‏ ذفذ 
ll1.17.2تgسعة If-Then-Else‏ 

يمكن استخدام العبارة م٥11‏ - 1f‏ في صيغتها الموسعة بإضافة مو[ع للتخيير بين 
ا ی اء غل فرط ا 2 ا ف مد جل افر ة اله أن وة أا ف ها انت دة 


Else‏ لھا. 


Dim A As Integer = 


| 
ل 


Dim B As Integer = 4 


If (A>B) Then 


MsgBox ("The Condition is true.") 


Else 


MsgBox ("The ConQdItELOR 1S EalSsê.™) 


ENA TÊ 
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كى هذه آلكالة تصبخ الضيغة ليذه الففرة هى كاي ا1۴ قحقق الشرظ رود 
إذاً وط٣‏ بطبا عة الر سالة The condition is true‏ وإلا Else‏ أط بع العبارة The‏ 
condition ¡is fae‏ حیث لم یتحقق الشرط تم قم بإنھاء العبارة ۴[ ٤d‏ . 
1.7.2.1 تدریب: مقارنة عددین 
61. من قاد مة ۴1٥‏ أختار New P٣٥٥۲‏ و من تبو یب القوالب عھام ٦٥٣‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
2.قم بإدراج عنصري تحکم أحدهما من النو ع 1e×80×‏ والآخر من النو ع But)0۸‏ 
کل النمود ير 
3.أنقر نقراً مزدوجاً فوق العنصر Button‏ يظر .Code Editor‏ 
64.في الحدث ا1٣_۸1٥)اBu‏ أكتب الشفرة التالية: 


Dim A As Integer = ClInt (TextBox1.Text) 


Dim B As Integer = CInt (TextBox2.Text) 


If (A > B) Then 


MsgBox(A & " is the bigger number") 


Else 


MsgBox(B & " is the bigger number") 
End IF 


6.قم بتخصيص قيمتين رقميتين في صندوقي النصوص ثم أنقر المفتاح 8»))0١1‏ لتنفيذ 
E‏ 


Select Case ةرlبell1.17.3‎ 

عند ما یکون عدد القرارات یز ید عن قرار ین یصبح استخدام العبارۃة عط - 1f‏ 
مجهداً. لذلك تقدم BA‏ اVisua‏ خیاراً آ خر للتعا مل مع القرارات المتعددة هو العبارة 
.Select Case‏ 


تستخدم العبارة وج٣‏ {ءع1[ع6 لاختيار قرار من بين عدة قرارات بناء على شرط 


منطقي. الشفرة التالية تبين كيف يمكن استخدام العبارة ميه ءم1مS.‏ 
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Dim A As Integer = 1 
Select Case A 
Case 1 

MsgBox ("White") 
Case 2 

MSGEBOX ("BLaCK") 
Cêšê: 3 

MsgBox ("Red") 
ERQ. SEléecE 


يمكن قراءة هذه الشفرة كما يلي. 

أختر على ساس موھ †ءع[م؟ قيمة ۸ فإذا كانت 1 میھ٣)‏ ۸=1) فقم بإظھار 
الرسالة مط أو إذا كانت قيمة 2 عموه٣)‏ ۸=2) فقم بإظهار الرسالة عو[ أو إذا كانت 
قيمة 3 موة٣)‏ 4=3) فقم بإظهار الرسالة ل ۸. ثم قم بإنهاء العبارة .End Selec)‏ 


Select Case — Case E]se ةعwgتl1.17.4‎ 


تعمل التو سعة ٥ی1٤‏ موه مع العبارة م2٣‏ ٥[مS‏ عمل يشابه عمل می٤‏ مع 
عبارة 1f‏ فهي تقدم البديل في حالة عدم تحقق أي من الشروط التي تختبر ها العبارة †ءعإم؟ 
موه. الشفرة التالية تقدم فكرة أوضح عن استخدام التوسعة می٤‏ ميهC.‏ 


Dim A As Integer = 1 
Select Case A 
Case 1 

MsgBox ("White") 
Caê 2 

MsgBox ("Black") 
Case 3 

MsgBox ("Red") 
Case Else 


MsgBox ("Please choose 1,2 or 3") 


End Select 
في هذه الشفرة تص بح اللإضا فة هي کالا تي» في حال لم يتد قق اي من الشروط‎ 
.Please choose 1,2 or 3 السابقة عی[ًع٤ ميه قم بطباعة العبارة‎ 
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1.. تدريب: الاختيار من بين عدة قيم 

7. من قاد مة ۴1e‏ اختار ۲٥eز٥r٣P New‏ و من تبو یب القوالب ھام ط٥٦‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

8.قم بإدراج عنصري تحكم أحدهما من النوع 1٥×80×‏ والآخر من النوع Butt0۸‏ 
على التموذج. 

9.أنقر نقرآً مزدوجا فوق العنصر Butt0¬‏ ليزظر .Code Editor‏ 

0 .في الحدث ا 1٣_۸1٥)ا8u‏ أكتب الشفرة التالية: 


Select Case A 

Case 1 
MsgBox ("White") 
Case 2 
MsgBox ("Black") 


Case 3 


MsgBox ("Red") 
Case Else 
MsgBox ("Please choose 1,2 or 3") 


End Select 


2. قم بتخصيص قيمة رقمية في صندوق النصوص تم أذقر المفتاح ))٥١1‏ ں8 لتنذيذ 
عملية المقارنة. 


8. معالجة الأخطاء 


سنقوم الآن بتعلم ك يف يمكذ نا معال جة الأخطاء في شفرة البرنا مج. ح تى أفض ل 
البرا مج أحيانا ما يذ تج عذ ها أخطاء. ب عض هذه الأخطاء هي عبارة عن عيوب في شفرة 
البرنامج يمكن اكتشافها وتحديدها. بعضها الأخر غير ناتج عن البرنامج مثلا ولكن عن بيئة 
التشغيل» كأن يحاول البرنامج فتح ملف مفتوح في برنامج آخر. في مثل هذه الحالات يمكن 
التنبؤ بمثل هذه الأخطاء وللكن لا يمكن منعها. وكمبرمج فمن ضمن واجباتك التنبؤ بمثل هذه 
الأخطاء وتكيف برنامجك للتعامل معها. 
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Run Time gعوiلا 1.18.1الأخطاء من‎ 


يطلق على الخطأ الذي يحدث أثناء تشغيل البرنامج الاسم .NRun Time Error‏ هذ 
النوع من الأخطاء يحدث عندما يحاول البرنامج أن يقوم بعمل لم يصمم البرنامج من أجله. 
مثلاً أن يقوم البرنامج بعملية غير مقبولة ممناهإءم0 [هع٥][1]‏ كأن يقوم بتحويل نص غير 
رقمي إلى متغير رقمي»› في مثل هذه الحالات تظهر أخطاء ال .Run Time‏ 

عند ما ي قع هذا النوع من الأخطاء أثناء التطو ير في بيئة زئه8 [هuء۷‏ ينش أ 
الخطاً عن طريق النظر إلى الشفرة داخل البرنامج ومعالجة الخطأ. إذا لم توجد شفرة معيبة 
فإن البرنا مج سوف يتو قف وعندئذ ستحتاج إلى إعادة تشغيله مره أخرى. و في م ثل هذه 
الحالات غالبا ما يحدث فقد في البيانات التي يدير ها البرنا مج لذلك يفضل البحث عن هذه 
الأخطاء أيا كان موضعها وإزالتها. 


Try - Catch - Finally ةرlبڊعll1.18.2‎ 


يمك نك استخدام العبارة Try — Catch — Finally‏ لمعال جة الأخطاء من النوع 
Run Time‏ في شفرتك. منطق هذه العبارة بسيط للغايةء فيمكنك أن تجرب ر٣‏ جزء من 


بتنذيذ هذه السدطور. وبعد الانتهاء من تنذيذ هذه الشفرة فإن أي شفرة ڊعد yاآهم۴1‏ لابد من 
تنفيذها. الشفرة التالية تبين منطق هذه العبارة. 
TEY‏ 


' Code here attempts to do something. 


Catch 


' Tf an error occurs, code here will be run. 


Finally 

' Code in this block will always be run. 
End Try 

بدا ية الشفرة اللاحقة ل- رآ يتم تنفيذ ها. إذا نفذت هذه الشفرة دون أخطاء يةفز 
البرنامج فوق 1ء وما يلحقها من شفرة ویتم تنفيذ الشفرة اللاحقة أ .Finally‏ ٳذا حدث 
خطأ في الشفرة اللاحقة ل رآ ينتقل البرنامج للشفرة اللاحقة ل طء)ج) ثم يقوم بتنفيذ الشفرة 

اللاحقة ل رااھمذ۴. 
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Try- Catch- Finally plختwl‎ :بıردت1.18.2.1‎ 

3. من قاد م ۴1e‏ أختار †eceز٥P۴r New‏ و من تبو یب القوالب ھام ط٥٦‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

4.قم بإدراج عنصري تحكم أحدهما من النوع 1٥×80×‏ والآخر من النو ع ہButt0‏ 
علي الور 

5.أنقر نقراً مزدوجا فوق العنصر Butt01‏ ليظر .Code Editor‏ 


6.في الحدث اء 1٣_۸1٥)ا8u‏ أكتب الشفرة التالية: 


TEY 
Dim aNumber As Double = CDbl (Textbox1. Text) 
MsgBox ("You entered the number " & aNumber) 
Ca tê 


MsgBox ("Please enter a number.") 


Finally 


MsgBox ("Why not try it again?") 


End Try 


قم بتخصيص قيمة رقمية في صندوق النصوص تم أذقر المفتاح But)0۸1‏ 
لتنفيذ عملية الاختبار. 
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بناء واجهات التشغيل 


واجهة التشغيل عءو؟إءاد] إعءل هي ذلك الجزء من البرنامج الذي سوف يراه 
مس تخدم البرنا مج عند تشغيله. عادة ما تتكون واج هة التشغيل من نافذة رئيس ية أو نموذج 
وغدد من عتا صر التد كم م ثل المفاة يح وخاتات إدخال النض وص و ما إلى ذلك, البرا مج 
المطورة ب یه8 1هںء۷1 التي تعمل على حاسوبك يطلق عليها أسم تطبيقات نماذج النوافذ 
Windows Forms Applications‏ ویس تخدم لبناء واجھات تشغبا ھا عنا صر 
Windows Forms‏ . 

في هذا الفصل نتعلم كيف نقوم ببناء واجهة التشغيل با ستخدام أكثر عناصر تحكم 


Windows Forms‏ استخداما. 


User Interface Jيغشتلا واجھة‎ 9 


سنتعلم هنا ما هي واجهة التشغيل 01) عءه؟إهام] إمءل) وما هي عناصر التحكم 
86م وكيف يمكن إضافة عنصر التحكم إلى واجهة التشغيل. 


في بدايات الحواسيب» كان مستخدمي البرامج يتعاملون مع برامجهم من خلال سطر 
الأوامر م«اا dمهصصه).‏ كان البرنامج يبدأ ثم ينتظر تلقي البيانات من المستخدم قبل أن 
يستمر. معظم البرامج التي تستخدمها اليوم تشتغل من خلال نافذة أو أكثر لتسمح لمستخدمها 
بأن يتعا مل مع البرنامج من خلال الضرب على لو حة المفاتيح أو بالذ قر على المفاتڌيح أو 
الاختيار من القوائم وما إلى ذلك. سنقوم الأن برحلة الغرض منها تعلم كيف نقوم ببناء واجهة 
تشغيل لبرامجنا تعمل من خلال النوافذ. 
1.1.1بناء النماذج ۶٣ا٥۴‏ 

النماذج وص إ۴ هي البنى الأساسية لواجهة التشغيل. كل نموذج في البرنامج يظهر 
للمستخدم في صورة نافذة سملم .W‏ عند العمل في بيئة التطو ير المتكاملة ل ]هuئ¡۷‏ 
»)Basic )Visual Basic Integrated Development Environment IDE‏ يمثل 
النموذج لو حة التصميم التي تستخدمها لتصميم واجهة تشغيل برنامجك» بنفس الطريقة التي 


تستخدم برنامج s ۴1٣٤‏ س0 لم۷1 لرسم الأشكال. 
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E E O ON ONE REES 
8 OR EE A A A E 
وسلوك معينين» فعند النقر عليه يتغير شكله ليبين أن نقر.‎ 

ڏ کل عنص ر تد كم تقد مه ٥زوه8‏ [هںء۷1 وظد فة محددة. مثلا عنص ر التد كم 
۲e×80×‏ يستخدم لإدخال النصوص» أما عنصر التحکم ×۲۵80ں†]P‏ فیستخدم لعرض 
الصور. تقدم زوه8 1ںء۷ لمستخدميها نحو خمسين عنصر تحكم مختلف؛ إضافة إلى أن 
المبرمج يمكنه أن يقوم بتصميم عناصر تحكمه الخاصة والتي يطلق عليها عناصر تحكم 
nllتخدp User Controls‏ . 

عند تصميم واجهة التشغيل» كل ما تحتاجه هو أن تقوم بسحب عهإ5 عنصر التحكم 
من ال ×0ط1٥ه۲٠‏ تم رميه مه( فوق المكان المناسب على النموذج» بعد ذلك يمكنك أن 
تغير موضعه وحجمه فوق النموذج ڊما يلاءم تصورك عن واجهة تشغيل برنام جك. كما 
ھک نك تیر مط پر عا ضرا الد ك ن ررق فو ير خض انها فى اة الخ انض 
5نا #pه.‏ تمنح نافذة الخصائص العديد من الخصائص القيمة التي تساعد المبرمج على 
تحو ير مظ هر عنا صر التح كم» فمثلاً النماذج وعنا صر التحكم يكون لها لون خلذية يم كن 
ضبطه من الخاصية المسماة 0۲ .BackC o]‏ 

يم كن أيضا ١‏ ستخدام الخص ائص لتعر يف سلوك النموذج أو عنص ر الت كم. متلا 
الخاصية اج )وه آم[ س0ط؟ للنموذج تحدد ما إذا كان النموذج سوف يظهر في شريط مهام 
لم أم لا عند تشغيل البرنامج. 


1 . تدریب: تغییر خصائص النموذج 

7. من قاد م ۴1e‏ أختار †eceز٥P۴r New‏ و من تبو یب القوالب عھام ٦٥٣‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

8.أنقر فوق النموذج لتختاره موضوع عملك. 

9 .في نافذۃة ؟٥‏ ٥م٥٣۴‏ قم بتغییر خاصیة ٦٥×٤‏ لتصبح My ۴٣١٤ ۴٥۲٣١‏ ثم اضرب 
مفتاح ۴٥۲‏ في لو حة المفاتيح» هل تلاحظ تغير النص المكتوب في شر يط عنوان 


.My First Form yl F0rm1 النموذج من‎ "tle Bar 
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0. في نافذة الخصائص قم بتغيير خاصية إه1ه 8K٣۳‏ إلى لون آخر باختيار لو من 
القائمة المنسدلة ليتغير لون خلفية النموذج. 
2. تدريب: إضافة عناصر التحكم إلى النموذج 
سنتابع في هذا التدر يب بناء واجهة تشغيل فوق النموذج الذي أعددناه في التدر يب 
السالف. 
1.من 1٥01(0×‏ قم بسحب عنصر التحکم ١٥))ا8‏ ورميه فوق النموذج ثم كرر العمل 
مع عناصر llتحكp 1extBox‏ و Label‏ ڪ .CheckBox‏ 
2.أنقر فوق ال 8)٥١‏ لتختاره ثم قم بسحبه فوق النموذج مغيراً من موقعه. 
3.كرر العملية لباقي عناصر التحكم. 
4.أنذقر فوق ال ١٥)اں8‏ لتختاره ثم أذقر وأسحب المربع الأبيض الصغير المثبت إلى 
الحافة السفلية للمفتاح لتغيير حجمه. 
5.حاول أن تذخ تبر خص ائص عنا صر التد کم الأخری متJ BackColor gy Font‏ و 
.Text gy ForeColor‏ 
6.قم بضرب المفتاح ۴5 لتشغيل البرنامج. هل تلاحظ الهيئة الجديدة للبرنامج. 
0 التفاعل مع المستخدم: استخدام المفاتيح 
فیما يلي نتعلم کیف نضیف عنصر التحکم ٥٥)اںB‏ إلى النموذج وكيف نقوم بتغيير 
مظهره وكيف نكتب شفرة يتم تنفيذها عندما ننقر عليه. 


تعتبر أسهل وسيلة لكي يتفاعل المستخدم مع البرنامج هي المفاتيح وو ه))ں8. فمتلا 
كير من البرامج تحتوي مفتاح 5×٤‏ لإنهاء البرنامج. كما رأيت سلفا يأخذ المفتاح مظهر 
و سلوك المفاتيح العاد ية المثبتة إلى الأجهزة مثلا. بالإضافة إلى المظ هر والسلوك للمفاڌيح 
مجموعة من الأحداث وومع المعرفة سلفا والتي تستخدم لتنفيذ الشفرات. 
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1 استخدام المفاتيح 

المفاتيح بصورة عامة لها مظهر مستطيل بارز فوق النماذج. لكن هذا المظهر يمكن 
تغييره با ستخدام العد يد من الخصائص. أو ضح هذه الخصائص هي خاصية 1٠×‏ والتي 
تحدد النص الذي سوف يعرض على المفتاح» وهذا النص سيعرض بخط يتم التحكم فيه من 
خاصية ره ۴. خاصية ٣٥10١‏ )ء8 تحدد لون المفتاح بيذما تحدد خاصية ForeC0l0۲‏ 
لون النص فوق المفتاح. 

عند ما يذ قر مس تخدم البرنا مج مفتاحاء فإن المفتاح يبدأ تشغ يل شفرة الحدث )1ا©. 
عند وقوع حدث مم8۷ فإن الشفرة المرفقة في هذا الحدث يبدأ تنفيذها. يمكنك كتابة الشفرة 
التي سوف يجرى تنفيذها بواسطة بناء عامل الحدث إمالم1a .event‏ 


عامل الحدث ۲م1 لم هط ٤٥ء8۷‏ هو طريقة N٥104‏ يتم تنفيذها عند وقوع الحدث. 
حيذما يذقر المستخدم فوق المفتاح» حدث )ع11٣‏ للمفتاح يكون له عامط امعvع.‏ وفي 
موضع لاحق سنتعلم كيف نتعامل مع عامل الحدث .Event handler‏ 


11 . تدریب: استخدام المفتاح 


7. من قاد مة ۴1 آختار eW ۴٣٥ز ٥۲‏ و من تبو یب القوالب ۵٤هام ٦٥۳‏ أختار 


.0K) تم أنقر المفتاح‎ Windows Application 

8.قم بسحب 1٥)†لاB‏ من ×0ط1٥٥۲‏ ورمیھ فوق ال .۴٥۲٣‏ 

9.في نافذة الخصائص قم بتغيير خاصية ۲٥×٤۲‏ لتصبح 1٤‏ ۶¡ ٥ص‏ ٤W2؟‏ ثم أضرب 
مفتاح ۴1)٥۲‏ من لوحة المفاتيح. 

0.هل لاحظت أن النص أكبر من المفتاح» أختار الخاصية ٥81z٥اں۸‏ ثم أضبط قيمتها 
لتصبح »1۲1٥‏ يتغير حجم المفتاح ليناسب حجم النص. 

1.أنقر مرتين فوق المفتاح لتظهر liذةö .Code Editor‏ 

92.في عامل الحدث ١ء1المهط‏ مم8۷ أكتب الشفرة التالية. 


MsgBox ("The current time is " & Now.ToShortTimeString) 
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3.أضرب المفتاح ۴5 ليتم تشغيل البرنامج» أنقر المفتاح لتظهر لك رسالة تحمل التوقيت 
الآن. 


1.استخدام النصوص 


سوف نتعلم الآن كيذ ية | ستخدام عنص ري التد كم [م اج1 و ۲٥×80×‏ لعرض 
اللصوص وإدخال البيانات النصية من مستخدم البرنامج. 

واحدة من أ سهل الطرق لا ستلام وعرض البيانات في البرنا مج هي من خلال 
النص وص. ح يث يمك نك عرض بيانات حول وظائق عنا صر واج هة برنام جك» أو تلم 
البيانات من المس تخدم لا ستخدامها في برنام جك. تقدم ءزوه8 [وuء¡۷‏ عنص ري التد كم 
Labe1‏ و "extB0x‏ لأداء هذه المهام. 


1. عرض النصوص في عنصر التحكم [مط14 

عنصر التحكم 1م طا] هو عنصر تحكم رئيسي لعرض النصوص. يظ هر عنصر 
التدكم 1م طج1 هو نفس لون النموذج لذلك يظهر أثناء تشغيل البرنامج مجرد نص فوق 
النموذج. 

حيث أن وظيفة عنصر التحكم 1ءطج.] الأساسية هي عرض النص» فإن الخصائص 
الأهم لعنصر التحكم 1م طج1 هي الخصائص التي تحدد مظهره. خاصية 1٠×‏ هي المسئولة 
عن النص المعروض في عنصر التحكم [عطج.]. خاصية ۴٥٣۲‏ مسئولة عن تحديد مظهر 
الخط المستخدم في إظهار النص في عنصر التحكم .abe1‏ الخاصیةۂ ۴٥۲٥٤٣٥10۲‏ یحدد 
لون النص نفسه» أما الخاصية إ0[ه )ع8 فتحدد لون المنطقة المحيطة بالنص. 
2 .تلم النص عبر عنصر التحكم ×0 ۲×٤8‏ 

في حالة ما إذا رغبت في عرض واستلام النص» يطر ح 1وج8 ا4ںی ۷ عنصر 
التحكم ×80×ه1 لأداء هذه المهمة. كما في حالة عنصر التحكم 1ء ]1ء الخصائص الأهم 
بالنسبة لعنصر التحكم ×0 1١×8‏ هي تلك المرتبطة بمظهره. الخاصية 1٠×‏ تحدد النص 
×0 ۲×68 قابل لتسدلم نصوص وعرضها على أكثر من سطر» حيث تأخذ هذه الخاصية 
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القيمة مه۴ لعرض وتسلم سطر واحد من البيانات» أو القيمة م1۲ لعرض وتسلم أكثر من 
سطر من البيانات. 
2.1.. تدريب: استخدام عنصري TextBox 9 Label pS>zil|l‏ 
4. من قاد مة ۴1e‏ أختار New °٣r٥ز ece‏ و من تبو یب القوالب ھام ٦٥٣‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
5.قم بسحب عناصر التحكم e1طa]‏ و 1ex)80x‏ و Button‏ من 1001b0x‏ و رمیھم 
فرق امود 
6.أخ تر عنص ر التد كم 1طا1 تم أذ هب إلى نافذة كء مه۴ و قم بتغي ير قي مة 
الخاصية .Enter your name and click the button yl ext‏ 
7.أنقر نقرآً مزدوجا فوق عنصر التحکم Bu t01‏ لتظھر liذة .Code Editor‏ 
98.قم بكتابة الشفرة التالية في عامل الحدث Button1_Click‏ 
MsgBox ("Your Name is " & Textbox1.Text)‏ 
أضرب المفتاح ۴5 لتشغيل البرنامج. 
قم بكتابة أسمك في خانة النص ثم أذقر المفتاح ١٥ا8‏ لتظهر رسالة نص 


تحتوي على أسمك. 


1.22بناءٍ عامل ڪذù Event Handler‏ 
سوف نتعلم الآن كيفية بناء عامل حدث .Event Handler‏ 


فیما سبق تعرفنا أن عناصر التحکم لھا خصائص 8ع٤e۲ Methods زaرطو ۴۲٥p‏ 
وأحداث واو م8۷ وتستخدم عناصر التحكم هذه لإنشاء واجهة التشغيل لبرامجك. 

عندما يحدث شئ متوقع بالنسبة لعنصر التحكم - نقر على مفتاح مثلاً - يقوم عنصر 
التحكم بإطلاق الحدث ٤م8۷‏ بمعنى أنه يقوم بإر سال إشارة إلى البرنامج تعلمه بأن هناك 
شئ مهم بالنسبة له قد حدث. يقوم البرنا مج بعد ذلك با ستكشاف ما إذا كان هناك أي طرق 
معر فة للع مل ع ند وقوع هذا الحدث. م تل هذه الطرق تس می عا مل الحدث مغ 


.Handler 
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يمكنك إنشاء عوامل الأحداث للعديد من أحداتث عناصر التحكم. فيما يلي سنقوم ببناء 
عوامل أحداث لمعالجة أحداث Mouse Enter‏ و MouseLeave‏ الخاصة بعنصر التحكم 
‘Button‏ وهي الأحداث التي تقع عند مرور الفأرة فوق عنصر التحكم. 
1 تدریب: مlaئجة‏ حدùث MouseEnter‏ 
99. من قاد مة ۴1e‏ أختار †eceز٥Pr New‏ و من تبو یب القوالب عھام ٦٥٣‏ آأختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
قم بسحب عنصر تحکم ١٥))ا8‏ من ×0 1٥015‏ ورمیه فوق النموذج. 
قم بتغيير قيمة خاصية ۸0517٥‏ لعنصر التحكم لتصبح ٥ںآ‏ . 
من قائمة ۷1W‏ أختار مل٥)»‏ تظهر نافذة ٥0de ٤ dt0۲‏ لاحظ الصندوقين 
المنسدلين في أعلى نافذة ٣ه)‏ ل٤‏ 04). الصندوق الأيسر يضم كافة عناصر التحكم 
المستخدمة في تصميم الواجهة. والصندوق الأيمن يضم كافة الأحداث المتاحة لعنصر 
التحكم المختار من الصندوق الأيمن. 
في الصندوق الأيمن أختار ۸1٥))uاB.‏ 
في الص ندوق الأي من أختار الحدث Mou ۴٣٤٥۲‏ يظ هر عا مل الحدث 
.Code Editor sli „ê Button1_MouseEnter ynڊnll Event Handler‏ 
قم بكتابة الشفرة التالية في الحدث. 
Buttonl1l.Text = "The Mouse has entered"‏ 
قم بضرب المفتاح ۴5 من لوحة المفاتيح» قم الأن بتمرير الفأرة فوق المفتاح 
2 إضافة عامل حدث آخر 
لعلك لاحظت في المتال الس ابق أن النص الأ صلي للمفتاح لا يعود كما كان عندما 
تنزاح الفأرة من فوقه. إذا كنت تر غب في تغيير النص بمجرد انزياح الفأرة لابد من إضافة 
عامل حدٿ آخر هو عامل انحدث .MouseLeave‏ 
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22.2.1 تدريب: إضافة |لحدj MouseLeaye‏ 
0.من صندوق الأحداث إلى اليسار أختار انحدث .MouseLeave‏ 
1 .في عامل الحدث 1e4veءn1_Mousہo٥Butt0‏ أضف الشفرة التالية: 


Buttonl.Text = "The mouse has left" 


2 .اضرب المفتاح ۴5 وجرب البرنامج. 


3 مشاركة عامل الحدث 

فما يلي» سوف نتعلم كيف نقوم عامل حدث مشترك يتعامل مع أحداث لأكثر من 
عنصر تد کم. فما سبق تعلم نا ک یف نک تب شفرة تس تجیب لحدث ع Mus ٤1)‏ وحدث 
MouseLeave‏ لعنصر التحکم ہ٥)٤اں8.‏ ماذا یحدث إذا کان لدینا آکثر من عنصر تحکم 
0 وأنت تريد أن تعرض ذفس الر سالة لجميع هذه العناصر؟. في هذه الحالة يمكن 
کتا بة ذ فس شفرة عامل الحدثٿث ذ كل عنصر من عناصر التد كم» ڏكن ولحسن ال حظ تقدم 
Visa] BC‏ خیار أفضل. 

لو ك نت تفحص ت مجمو عة طرق عوا مل الأحداث لنحد MouseEnter‏ ك نت 
ستلاحظ أن تعريف الطريقة 


Private Sub Buttonl MouseEnter (ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Buttonl.MouseEnter 


يحتوي على جزء هام هو 


Handles Button1.MouseEnter 
إن الكلمة المحجوزة وم إل مه1[ تفيد عامل الحدث عن أي الأحداث التي يجب عليه‎ 
أن يقوم بمعالجتها.‎ 
لمشار كة عامل حدث بين أكثر من عنصر تحكم» فإنه يلز مك أن تضيف أ سماء‎ 
عناصر تحكم إضاذية وأسم الحدث الذي تر غب في معالجته. فمثلا إذا كان هناك عنصري‎ 
تد كم ٥0ا8 وتر غب في أن تس تخدم ذفس عامل الحدث له ماء فإن الكل مة المحجوزة‎ 
6م سوف تظهر في الشفرة كما يلي:‎ 


Handles Buttonl.MouseEnter, Button2.MouseEnter. 
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الآن لديك طريقة ل0طاء™ واحدة لمعالجة الحدث Mouse ٤)۲‏ لكلا عنصري 
التحكم. لكن كيف يمكن لعامل الحدث أن يعرف أي عنصري التحكم هو من أطلق الحدث؟. 
إذا ألقيت مرة أخرى الذظر على إعلان لطا" سوف تلا حظ الكلمة المحجوزة ۷1ر8 
der As Object‏ nمeء.‏ إن الكلامة المحجوزة ١ءل‏ مم تذيد عامل الحدث عن الكائن - 
عنصر التحكم - الذي أطلق الحدث. 

هذا التدر یب د مه على التدر يب ال الق ديت سنقوم بكس يل الو اج هة والففرة 
3.من ٦٥٥[(٥×‏ قم بسحب 8)٥١‏ جدید وإضافته إلى ال صآإه۴. 


4 .قم بالنقر مرتین فوق 0۸11)) ں8 لفتح liفذةö .Code Editor‏ 


5. في الحدث ٣)٥۲‏ ٤عوuهM‏ قم بتعد يل هذا الجزء من الإعلان عن الطري قة 
Handles Button1.MouseEnter, zıصyl Handles Buuton1.MouseEnter‏ 


.Button2.MouseEnter 


6. قم بحذف الشفرة الموجودة دا خل الطري قة ك0طاء“ لعا مل الحدث 
Button 1_ MouseEnter‏ واستبدالها بالشفرة التالية. 


If sender.Equals (Buttonl) Then 

Buttonl.Text = "The mouse has entered Buttonl" 
Else 

Button2.Text = "The mouse has entered Button2" 
ENQA TÊ 


7.لاآن قم بضرب المفتاح ۴5 وأختبر البرنامج. 
3 استخدام مربعات التأشير ومفاتيح الراديو 


فما يلي سنتعلم کيذیه استخدام مربعات التأشیر ی80×6 ٥٥ط‏ ومفاڌیح الراديو 
»Rad10 Buttons‏ وهي عناصر التحكم المسئولة عن تلقي اختیارات مستخدمي البرامج. 
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1.23.1مرgı‏ llتشıر Check Box‏ 
عندما تقوم بإنشاء واجهة تشغيل لبرنامجك» عادة ما تحتاج أن تقدم اختيارات. متلاء 
أفترض أنك تقوم بكتابة برنامج لتلقي طلبات مطعم بيتزاء ربما كنت تريد أن تجعل مستخدم 
برنامجك أن يختار من بين عدد من أ صناف البيتزا. عنصر التحكم ×80 )عمط يقدم أداة 

جيدة يمكن للمستخدم أن يستخدمها في تحديد خياراته. 
يتكون عنصر التحكم ×0 8 ٥1٥٨)‏ من نص عنوان ومربع حيث يمكن للمستخدم أن 
يضح إشارة المواة قة. عند ما يذ قر المد تحدم فوق مز بع التأث ير تظ هر إشارة المواذقة في 
المربع. إذا تم التأشير على المربع مرة ثانية فإن إشارة الموافقة تختفي. إن حالة مربع التأشير 
من ح يث هو يد مل إشارة المواف قة أو لا يم كن التعرف علي ها من خلال الخا صية 
.checkB80x.Checked‏ لو أن المربع يحوي الإشارة فإن هذه الخاصية تصبح معں۲آ أما 
إذا كان لا يحمل هذه العلامة فإن قيمة الخاصية تصبح مءإه۴. 
1 تدریب: استخدام مربع التأشیر 
8.من قاد مة ۴1٥‏ أختار New Prec)‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
قم بسحب عنصر التحکم ×80)ءعطC‏ من ٩٥0180×‏ ورمیه فوق النموذج»› 
وكرر هذا الإجراء مرتين إضافيتين. 
قم بسحب عنصر تحکم ١٥))ا8‏ من 1٥0150×‏ ورمیه فوق النموذج. 
أختار عنصر التحدكم 80×1)ءء1٥‏ من فوق النموذج ثم اذ هب إلى نافذة 
الأخص اأص وعدل الخا صية Text‏ أت“ بح «Pepperoni‏ تم کرر الإجراء لعنص ر 
التحكم 80×2)ءءط€ جاعلا خاصية 1٥×‏ له هي #ع4ءاه$ ونفس الأمر لعنصر 
التحكم الذي تصبح خاصية 1٥×‏ له هي sصMusbhroom.‏ 
في خصائص 80٥١1‏ أجعل الخاصية 1٥×٤‏ هي .Order ۴1zz4‏ 
أنقر نقرآً مزدوجا فوق عنصر التحکم 11٥ا Bu‏ لتظھر liفذةö Code Editor‏ 


تم قم بكتابة الشفرة التالية: 
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Dim tOPPINGS AS SEEIRG = TT 


If CheckBox1.Checked = True Then 
toppings &= "Pepperoni " 

End. TÊ 

If CheckBox2.Checked = True Then 


toppings &= "Sausage " 
ERQ, TÊ 
If CheckBox3.Checked = True Then 


toppings &= "Mushrooms" 


End If 
TE tOPpPLinGS <S ™ Thén 
MsgBox ("Your pizza has the following toppings: " & 
LOPPIRGS ( 
End If 


قم بضرب ۴5 ثم أختار أحد الخيارات الثلاثة وأنقر المفتاح ۴1zza‏ إOrde.‏ 


1..2مفتاح lلرlدgı Radio Button‏ 
تعلمنا كيف يمكن أن نقوم بالسماح لمستخدمي برامجنا بتحديد إختيارتهم. لكن ماذا 
إذا كان علينا أن نجعل المستخدم يقوم بإختيار واحد فقط من ضمن مجمو عة خيارات؟. في 

هذه الحالة فان عنصر التحكم المثالي هذه الوظيفة هو عنصر التحكم .RadioButton‏ 
وعلى عكس مربعات التأشير غالبا ما تعمل مفاتيح الراديو (والتي يطلق عليها أحيانا 

أسم مفاتيح الخیارات ورهااB‏ «ه0نام0) كمجمو عة. في هذه المجموعات يكون اختيار أي 

منها بمثابة عدم اختيار باقي الخيارات. 

البيتزا بأن يحدد ما إذا كان ير يد صوص عادي أو صوص حار فوق البيتزا. وكما في حالة 

مر بع التأشير يمكن التعرف على ما إذا كان مفتاح الراديو يحمل علا مة الموافقة أم لا من 

.RadioButton.Checked ةيصlخنا‎ Jîلخ‎ 

23..1. تدريب: إضافة مفاتيح الراديو 
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9.قم بسحب عنصر التحکم ¬0 RadioButt‏ من ×0ط01 10 ورمیه فوق ال ۴0M‏ 
مرتین. 
0. من نافذة الخص ائص» أختار خا صية 1٥×‏ لعنص ر الت¬ RadioButton] oS‏ 
iyجlql .Regular Sauce‏ 
من نافذة الخصائص» أختار خاصية 1٥×‏ لعنصر التدكم RadioButton2‏ 
iyجlql .Hot Sauce‏ 
قم بالنقر مرتین فوق عنصر التحکم ۸1٥ا‏ ں8 لتظھر liفذةö .Code Editor‏ 
أضف هذه الشفرة أسفل الشفرة التي قمنا بكتابتها التدريب السابق. 


£ RadioButtonl.Checked = True Then 


H4 


MsgBox ("You chose regular sauce") 


Else 


MsgBox ("You chose spicy sauce") 


ERO LE 


3.استخدام أكثر من مجموعة من مفاتيح الراديو 

سنتعلم الآن كيف ننشئ عدد من مجموعات مفاتيح الراديو فوق نفس النموذج. ففيما 
سبق تعلمنا أن ننشئ مجمو عة من مفاتيح الراديو التي تقدم مجموعة من الخيارات للمستخدم. 
ماذا يحدث عند ما نر غب في تقد يم مجموعڌ ين أو أك ثر من الخيارات؟. إذا أضفذ نا مفاڌ يح 
الراد يو التي تم تل مجموعات الخيارات كلها فوق ذفس النموذج سنجد أذها تتصرف كأذها 
مجموعة واحدة» أي أن اختيار أي منها يعني عدم اختيار الباقين. 

يقدم »1و8 اهںو۷ مجمو عة من عناصر التحكم التي يطلق عليها أسم الحاويات 
16ص وال تي تع مل بمثا بة حاو ية لعنا صر التح كم. بإضافة أي من الحاويات إلى 
غيرها من مفاتيح الراديو الخارجة عن الحاوية. 

الحاو ية الأك ثر شيوعا هي عنصر التد کم ×80 م0upإG‏ وعنصر الد کم .Pane[‏ 


الفارق الرئيسي بينهما هو أن عنصر التحكم ×ه8مںهإ6 له حافة مرئية حولهء ولا يوجد 
64 


الا رة باسنخدام 2008 isua1 Basic. N٤7‏ ۷ ¬ وسا مالدین عمد 


مثل هذه الحافة حول عنصر التحكم .Panel‏ عند استخدام حاوية لتجمع مجمو عة من مفاتیح 

الراد يو» فإن عنصر التدكم ×80 مسuهإ6‏ هو الخيار الأفضل» لأن حافته تبين لمستخدم 

البرنامج أن هذه المجمو عة من المفاڌيح التي يحتويها هي مجمو عة واحدة لا يمكنه إلا أن 

يختار إحداها فقط. 

23.3.1 تدریب: استخدام عنصر التحکم ×80 م۷٥6‏ کحاویة 

11.من ×0ط01٥۲‏ قم بسحب ×80 6۲01p‏ ورمیه فوق النموذج. 

112 .من نافدذة الخصائص قم بتغڍير خاصية Text‏ لعنصر التدكم GroupBox‏ لتصبح 
.Select a crust‏ 

3.أختر ال ×80 Group‏ فوق النموذج ثم م سحب Toolbox ja RadioButton‏ 
ورمیه فوق ال «GroupBox‏ وکرر هذه الخطوة ليصبح عند نا مفتاحي رادیو فوق 
الخارية 

4.في نافذة الخصائص قم بتغيير خاصية 1٥×‏ لعنصري التحكم 11 Radio 8u tt0‏ و 
RadıoButton2‏ على التو الي لتصڊح .Thick crust sg Thin crust‏ 

5.أذقر مرتين فوق المفتاح Order Pia‏ اتظهر نافذة .)0e 8d۲‏ أُضف ھذہ 
الشفرة أسفل الشفرات الموجودة في عامل الحدث .Button1 Click‏ 


If RadioButton3.Checked = True Then 


MSGBOX ("YOU CHOSE @ã. thHLN €rUStE") 


Else 


MsgBox ("You chose a thick crust") 


ERQ TÊ 


6 .أضرب المفتاح ۴5 وقم بتجربة البرنامج. 
4 استخدام الصور 


فيما يلي نتعلم كيفية استخدام عنصر التحکم ×0 ۲٥8‏ ں ]ء۴ لعرض الصور واستخدام 
الصورة كخلفية للنموذج. 
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2.1 عنصر التحکم ×0 8عrاں)Pict‏ 

هناك عدة طرق لعرض الص ور في ٥1ئ8 Visual‏ هم ها هو عنص ر التد کم 
.P¡ctureB ox‏ يعمل عنصر التحكم ×80مإں†ء۴1 بمثابة حاوية للصور» ويمكنك أن تختار 
الصورة التي سوف يتم عرض ها في ها من خلال الخا صية مءعه.[1. هذه الخاصية يم كن 
ضبطها من خلال نافذة الخصائص أو يمكنك كتابة شفرة لتحميلها أثناء عمل البرنامج. 

من خصائص عنص ر التحدكم ×0 8ع۲ں]ء۴P‏ المفيدةء الخاصیية ع1z؟ہ)ں‏ ۸ والتي 
تعني أن عنصر التحكم ×80 P1٥1۲‏ من الممكن أن يتغير حجمه ليتوافق مع حجم الصورة. 
وكذلك الخاصية عءل S1۷0‏ والتي يمكذها أن تستخدم لضبط و ضع الصورة في عنصر 
التحكم ×0 8ء۲ ں )ء۴1 فتسمح بتغيير أبعاد الصورة للتوافق مع عنصر التحكم. 

ق بل إضا فة عنص ر التد كم ×0 8ع۲ں)ء¡۲» ي جب إضا فة الص ورة إلى المشروع 
كمورد ٥إ‏ 0uوءه8.‏ وبمجرد إضافة المورد إلى المشروع يمكنك استخدامه أكثر من مرة. 


1.24.1.1 إضافة الصورة کمgرxڌ Resource‏ 
7 .من قاد مة ۴11e‏ أختار New Prec‏ و من تبو یب القوالب ھام ط٥۲‏ آختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
في نافذة 106۲ام×٤‏ «10اuاهS‏ أنق مرڌين فوق أ سم المشروع لتنذتح نافذة 
Project Designer‏ - آنظر شکل 4-16. 


Applicati 
Compl’ 
Debug Assembly name: Root namespace: ۵ 
Refe wWindowsApplication 1| WindowsApplicatian 1 
Resources Application type: Icon: 
= 

e Windows Forms Application wv | Default Icon} | 1 
Settings Startup form: 
ET Form1 | 
My EE Assembly Information... 1 1 View UAC Settings 
Security 

3 iW] Enable application framework 
Publish 


Windows application framework properties 
[¥] Enable XP visual styles 


Make single instance application 


[¥] Save My .Settings on Shutdown 


Authentication mode: 
Windows “| 


Shutdown mode: 


when startup form closes 


Snlach crrepn 


.Project Designer ةذİli‎ :16-4 شكل‎ 
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أختار التبو يب ع٥ R0‏ من النافذة Project Design‏ - أذ ظر شکل 
4-7. 


Application lel strings = 3 Add Resource w Remdiyêı Resdur 


Name Yalue Comment 


e ۹ 


.R 0u ce شکل 17-4: التبویب‎ 
Add Existing lia رlتخİ,‎ Add Resource —ئÛ‎ روlجملl أنقر على السهم‎ 
.4-18 ما۴ - أنظر شکل‎ 


ُ 3 Add Resource w 
Add Exisüng Filê... 

Add New String 

New Image ۴ 


Ad New Icon 


ew Text File 


شكل 18-4: إضافة مورد خارجي. 


أستخدم النافذة التي سوف تظهر للاختيار صورة. 


كرر الخطوة ٤‏ و ٠١‏ مرة أخرى ليص بح عندك صورتين من ض من موارد 
المشروع ظاهرتان في liفذةö .Solution Explorer‏ 
2.12. تدريب: عرض الصورة باستخدام عنصر التحکم ×0 8عPict)u»۲r‏ 
118.أختار من olution Explorer‏ النموذج ۴٥۲۳1‏ تم آختار من قاأمة wWما۷‏ 


.Designer رlıتخلا‎ 
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9.قم بسحب عنصر تحکم ×80ء۲ں)ء۲1 من ×0ط01٥1‏ ورمیه فوق النموذج. 

0. في نافذة الخصائص أذقر فوق المفتاح ... المجاور للخاصية ع4[ لتظ هر نافذة 
.Select Resource‏ 

1 .أختر أحدى الصورتين. 

2.أختار خاصية 0de‏ MءS1z‏ و أضبطھا لتصبح .Aut‌0S¡ze‏ 

3.أذقر مرڌین فوق عنصر التدکم ×0 e8ءrں۴1ct‏ لتنذ تح نافذة Code Edit‏ على 
عامل الحدٿ .PictureBox1 Click‏ 


4.بفرض أن الص ورة الثان ية ال تي أضفت ها إلى الموارد أ سمها ص My ٣1c. a‏ قم 
بكتابة الشفرة التالية في طريقة الحدث. 
PictureBox1.Image = My.Resources.MyPicName‏ 
5.أضرب المفتاح ۴5 لتنفيذ البرنامج» أنقر فوق الصورة وأنظر كيف تتغير الصورة. 
2.استخدام الصورة في خلفية النموذج 
يم كن ا ستخدام الصورة كخلذية للنموذج عوضا عن استخدام الألوان. في التدر يب 
التالي نتعلم معا كيف نستخدم الصورة لتصبح هي خلفية النموذج. 
1.. تدريب: استخدام الصورة في خلفية النموذج 
6. من نافذة Sutin Expo‏ أختار ۴٥۲۳1.۷b‏ و من قاد مة ۷1٥w‏ أختار 
.Designer‏ 
7.أختار النموذج بالنقر خار ج عنصر التحکم Pictu re80×‏ . 
8 .في نافذة الخصائص» أذقر المفتاح ... للخاصية eعu«d112هإع)ءه8‏ حتي تنفتح 
liفذةa .Select ResoOUrCe‏ 
9.أختار أحدى الصورتين في الموارد ثم أنقر )0. 


0.أختار خاصية BackgroundImage Lay ou‏ ثم أضبط قیمتھا لتصبح .Stre)c1‏ 
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1 .أضرب المفتاح ۴5 لتشاهد مظهر البرنامج الجديد. 


5.القوائم 
سنتعلم الآن كيف ننشئ القوائم ونكتب الشفرات التي يتم تنفيذ ها عند اختيار القوائم. 
تم ثل القو ائم ظره فة سهلة ومعتادة تنه مح للم تخدمين بال صول إلى الوظائت آلمخظا فة 
برنامجك. 
1 إضافة القوائم 
إن إضا فة القوائم إلى البرا مج با ستخدام >زوه8 |عuو¡۷‏ هو عمل بسيط. يمك نك 
ا ستخدام عنص ر التد كم pذ٣uSمرمN‏ الذي يظ ھر کمر بع يد مJ‏ كلمت Type Here‏ 
ليظهر في الجانب الأيسر الأعلى من النموذج. حيث يمكنك أن تنقر هذا المربع وتكتب بداخله 
أسم القائمة. 
عند ما نقوم بضبط أ سم قائمةء يمكن أن تظهر قوائم فرعية تحته وإلى يمين القاذمة 
الأولى» لتس مح لا مبرمج أن يقوم بتص ميم قواذ مه والقوائم الفرع ية. عند ما تذ هي تص ميم 
قوائمك» يمكنك كتابة شفرة حدث أي من هذه القوائم. 
1. تدريب: إضافة القائمة إلى نموذج 
2. من قاد مة ۴1٥‏ أختار New ٣٥ز ec‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
3 .قم بسحب ورمي عنصر التحکم Menu5)٣1p‏ من ×٥0ط1٥٥٦‏ إلى النموذج» بغخغض 
الذظر عن المكان الذي قمت برميه ذيه سيحتل الحافة العلو ية للنموذج وتظهر أول 
قائمة إلى اليسار. 
4.أنقر فوق عنصر التحكم MenuS†r1p‏ نتم قم بکتابة ۴11٥‏ تم أضرب المفتاح Enter‏ 
في لوحة المفاتيح. 
5 .في المربع الذي سوف يظهر تحت القائمة ۴11٥‏ أنقر فوقھ تم آکتب ٤×٤‏ ثم أضرب 
المفتاح "٤٥۲‏ من لوحة المفاتيح - أنظر شكل 4-19. 
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a Forml ا‎ 
Filê | 
[Lupe Here | 


شكل 19-4: تحرير القوائم. 
6.أنقر مرتين فوق القائمة ٤×1٤‏ لتظھر liفذة .Code Editor‏ 
7 .في عامل التحكم ic1|إtripMenuItem_C‏ 0018 Exit‏ أكتب الشفرة التالية: 
APPLICA LORN. EXILE 0‏ 
8.۔.أضرب المفتاح ۴5 لتشغ یل البرنا مج ثم آختار ٤۴×)‏ من القاۂ مة ١ا۴‏ لتغلق 
البرنامج. 

En ab] 52.استخدام خاصية‎ 

سنتعلم فيما يلي كيف نسمح للمستخدم أو لا نسمح له باستخدام القوائم أثناء التشغيلء 
حيث أنه في ڊعض الأحوال لا يم كن | ستخدام ب عض الوظائف التي تقدم ها القوائم. مع ظم 
البرا مج تلا جأ إلى عزل القاد مة عوضاً عن إخفاء ها ح تى لا تس مح لمس تخدميها با ستخدام 
القائمة. 

تستخدم الخاصية لع[طهمE‏ المرتبطة بعنصر التحكم ۷u‏ ماع)؟ حتى تعزل أو 
لا تعزل | ستخدام القاد مة. للخا صية ل ع[طھم8 قيمت ين هما م وتع ني أن القاد مة غير 
معزولة والقيمة مءإه۴ وتعني أن القائمة معزولة. 
25.2.1 تدريب: استخدام اlلخlëاصية Enabled‏ 


استكمالا للتدريب السابق. 
9.أضف للنموذج عنصر تحكم ×0 ٦۵×8‏ . 
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0.أضف إلى النموذج عنصر تحکم جدید pا٣)؟S Menu‏ ثم قم بتسمیته ٤di‏ . 

1. أذ قر فوق المر بع النازل من عنص ر التد کم pذا)MenuS‏ الس می ٤d1‏ ثم قم 
بتسمیته yم€0.‏ 

2. من نافذة الخص ائص قم بض بط خا صیة ۴٣1٥4‏ لعنص ر التد کم 
.False zıصتl Copy ToolStripMenultem‏ 

3.أنقر فوق عنصر التحكم 1١×80×1‏ مرتين ثم أكتب الشفرة التالية: 


If Textboxl1.Text <> "" Then 


CopyToolStripMenulIltem.Enabled = True 


Else 


CopyToolStripMenuIltem.Enabled = False 
ala EE 


ع ند تنذ يذ البرنا مج مادام مر بع النص وص فراغ من أي نص لن يمك نك |١‏ ستخدام 
رمه من القائمة )1ل E٤؛‏ فقط يمكنك استخدامها عندما يكون هذا المربع يحتوي على نص. 
3., إضافة شريط قوائم قياسي 
شر يط القوائم القياسي هو شر يط يحتوي القوائم القياسية في تطبيقات ۴ 0وهإءMi‏ 
»Windows‏ و هي القوائم ¡1e‏ ۴ و Edit‏ و 001s‏ و 1pع]H‏ بڊما تضمنه من قوائم فرعية. 
يبسط 2008 Bas1c.NN8£1‏ اuaءVi‏ عملية تحرير القوائم القياسية على المبرمج حيث يمكن 
أضافتها بواسطة إجراءات بسيطة يبينها التدريب التالي. 
1. تدريب؛ إضافة شريط قوائم قياسي 
5. من قادمة ۴11٥‏ أختار )ecز٥إ۴ New‏ و من تبو یب القوالب ھام ط٥٦‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
6.قم بسحب ورمي عنصر التحكم Menu 5)٣1p‏ من ×٥0ط1٥٥٦‏ إلى النموذج» بغخغض 
الذظر عن المكان الذي قمت برميه ذيه سيحتل الحافة العلو ية للنموذج وتظهر أول 
قائمة إلى اليسار. 
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7.أذقر فوق السهم الموجود في الجانب الأيمن العلوي من شريط القائمة لتظهر قاذمة 
كالمبينة في شكل 4-20 اختlر .Insert Standard Items lia‏ 


laj x‏ اه 


MenuıStrip Tasks 
Embed in ToolStrip Container 
Insert Standard Items 


Render™lode | ManagerRender™ =| 


Dock Top 5 
Gripstyle Hidden ا‎ 
Edit Items... 


شكل 20-4: إضافة شريط قوائم قياسي إلى النموذج 


8.يتحول شريط القوائم إلى شريط قوائم قياسي كالمبين في شكل 4-21. 


شكل 21-4: النموذج مضاف إلية شريط القوائم القياسي 


Pop-Up Menus lind 1.5.4القوائم‎ 


کر من ار امج تك اراك هة الى يكن ال هون الها عن طريق افر 
فوق المفتاح الأيمن للفأرة. يمكن أنشاء القوائم المنسدلة في وج8 [ه4ںو۷1 باستخدام عنصر 
ilتھڌp .ContextMenuStrip‏ 
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يتشابه عنصر التحكم ContextMenuStrip‏ مع عنصر التحكم MenuStrip‏ في 
الأول» أي أنها قوائم رئيسية. 
أيضا فإن عنصر التحكم 1p‏ ؟ Context Menu‏ لابد أن یکون مرتبط مع نموذج أو 
عنص ر تد كم آ خر ح يث تر غب في أن يظ هر. ي تم هذا عن طر يق ض بط الخا صية 
nt extMenuStrp‏ للنموذج أو عنصر التحكم الذي ترغب في أن تظهر القائمة المنسدلة 
فوقه. كما يمكنك أن تقوم بر بط عنصر تحكم rp‏ ntextiMenuSدC‏ في العدید من عناصر 
اك 
2.1. تدریب: عمل قائمة منسدلة وريطها بنموذج 
9. من قاد مة ۴11٥‏ أختار اeceزە۴ New‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
0 .قم بسحب ور مي عنصر التحكکم ContextMenuStr|p‏ من ×b0ط01٥۲‏ إلى سطح 
1. من نافذة خص ائص النموذج قم بض بط الخا صية ContexiMenuS†۲1p‏ لتص بح 
.ContextMenuStrip 1‏ 
2.أنقر فوق عنصر التحكم ContextMenuStrip‏ فوق النموذج تم أکتب ۸1٥نامOp‏ 
أضرب المفتاح ۴"۲ تم بكتا بة 2«٥0ذام0‏ في المر بع التالي تم أضرب المفتاح 
Enter‏ مرة أُخری. 
3.أنقر مرتين فوق ۸1٥1ص0‏ لتنفتح lillفذة .Code Editor‏ 
54.في عامل الحدٿث Option 1 r 001StripMenu[teı_ C11)‏ أكتب الشفرة التالية: 


MsgBox ("You chose Option 1")‏ 
آختار من القا مة اليس ری لنافذة ٥٥4e ۴d۲‏ عنص ر التد كم 


0pt10n2 01S tr1p Menutem‏ ومن لقائمة اليمنى الحدث ع]ا€. 
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في عا مل الحدث Option 2r 01StripMenu[Ite_ Click‏ أك تب الشفرة 
التالية: 


MsgBox ("You chose Option 2") 


6 استخدام عنصر التحکم ہآ 

في هذا القسدم سنتناول كيذية ا ستخدام عنصر التحكم ٣ص1‏ لتنذيذ إجراءات لا 
تس تحثها مدخلات مس تخدم الت طبيق. م تل هذه الإجراءات ال تي لا تعڌ مد على مدخلات 
المستخدم ولكن تعتمد على مرور فترة معينة شائعة في العديد من التطبيقات مثل الحفظ الآلي 
ut 0save‏ للوتائق في برنامج M1٥00 W014‏ متلاء أو تحديث صفحات الوب في 
بعض المتصفحات. مثل هذه الإجراءات يلزم لتنفيذها استخدام عنصر التحكم هم1 1. 

يختلف عنصر التحكم ۲م1٣‏ عن غيره من عناصر التحكم التي سبق وأن تناولنها 
حيث أنه ليس له واجهة استخدام. عناصر التحكم التي ليس لها واجهة استخدام يطلق عليها 
في 2008 ."Components jlig<e" pw!!! Visual Basic.NET‏ 

المکون 11٥۲‏ له خاصیتين وحدث واحد دائما ما يستخدموا. 


الخاصية dع|اEnab System. imers. Timer.‏ والتي تحدد ما إذا کان | Timer‏ 
يعمل حيث تكون في هذه الحالة لها القيمة م1 أو لا تعمل وفي هذه الحالة تكون لها القيمة 
.False‏ 

الخاصية الثانية هي 1هاع) System. 11ص۲١. 1106۲.1٥‏ والتي تحدد عدد المللي 
ا کک ا کن ا کات وء الغا متو 
على القيمة 1000ء فإن ال- إمص11آ سوف يقوم بد قة )ءآ كل ٠٠٠١‏ مللي ثاذية أي كل 

حدث الد قة أو ٤م۴۷‏ )11 هو الحدث الذي سوف يحدت آليا ع ند مرور ال۔ 
1ه )] المحدد من قبل المبرمج» ويمكن بضبط كلا من خاصية 4ء1[اه"۴8 وخاصية 
اvaإعnt]‏ وإضافة تعليمات للحدث ء11 تكرار إجراءات الحدث ع11 على فترات زمنية 
متساوية وتساوي الفترة المحددة في إجراعام]. 
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1.1. تدريب: استخدام المكون ءء٣71‏ في بناء تطبيق الساعة 

5.من قادمة ۴11٥‏ أختار New Prec)‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

6 .قم بسحب عنصر تحکم من النوع 1٥ا12‏ ورمیه فوق النموذج ۴٥۲۳٣1‏ سیحمل 
الاسم e11ط4‏ آليا. 

7.من ×0ظ01٥٥۲‏ أذقر التبو یب یأدe«صممصه٤‏ تم سحب من تحته المکون ہآ 
و قد برم یه فوق النموذج ۴٥۲۳1‏ یصبح اسمه آلیا ۲1۳٥۲1‏ کما أنه لا یظ هر فوق 
ال ۴٥۲۳1‏ لکنھ یظھر في شریط اسفل ۴٥۲٣1‏ کما ھو مبین في شکل 4-22 حیث 

8ء أنتقل إلى نافذة الخصائص وتأكد أن عنصر التحكم موضو ع النافذة هو ۲1٥ص11‏ قم 
بضبط الخاصية ۴1214 لتصبح ع1۲u‏ والخاصية 6۲۷2۵1)] لتصبح .٠٠٠١‏ 

9.أذقر المكون 11۳٥۲1‏ نقراً مزدوجا لتتمكن من فتح نافذة ٥۲‏ ال۴٣‏ deهC€‏ على 
الحدث .Timerl_ Tick‏ 
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n Tran nan TT a SRN 


+ Gommon Controls | a4 Forml 
+ Gontainers 

+ Menuıs & Toolbars 
¥ Data Label1 


= Components 


EF BackgroundYYorker 
Î DirectoryEntry 

, DirectorySearcher 
O ErrorProvider 

| EventLog 

yl Filesystem watcher 
HelpPravyider 
ImageList 
MessaŞEQUELE 

#l Perfor manceZounter 
Ll Process 

jê SerialPort 


Fa ii] 


SÊ serwicecontr aller المگون‎ 
Timer 

* Printing 

= Dialogs 

k Pointer 

i#| colorDialog 
FolderErowserDialog 

مئان المكون بعد إضافته للئموذج | FontDialog‏ 
GpenFileGialog‏ 
sSaveFilaDialog‏ 


3 FI 


hm 


Timer 


HH 


El El ÈJ Ê 


ا 
شکل 22-4: المکون ۲ص٣‏ في ٥×‏ ط٥٥۲‏ وعلی النموذج ۴٥١٣1‏ 
أضف شفرة التعليمات التالية: 


Label1.Text=My.Computer.Clock.LocalTime.ToLongTimeString 
ComboBox sy ListB0c عناصر تكم‎ 17 


عنصري التحکم ×80ء و ×080ط٥٥K٥‏ یس محا للمستخدم أن یختار عنصر 
۳٥ع‏ من قائ مة من العنا صر. یختلف عنص ر التد کم ×18B0ء1]‏ عن عنص ر التد كم 
×0 08طm C0‏ بأنه يعرض عدة أ سطر في آن واحد» على حين لا يعرض عنصر التحكم 


×80 0طComb‏ إلا عنصر واحد فقط., 
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„ Formiwb[Design]” | 


yellow 


orariqê 
white 


شكل 23-4: عنصر التحكم ×0 8ء11 يعرض أكثر من بند في آن واحد 


بيذما يتميز عنصر التحكم ×0 08ط C٥٠‏ بأنه يسمح للمستخدم أن يختار من قائمة 
العنا صر أو يض يف إلي ها ويختار ما أضا فه م ما يجعله مز يج من اڵ - 1e×†80×‏ وال - 


×80ء11 في نفس الوقت. 


blue 


yellow 
orange 


white 


شكل 24-4: عنصر التحكم ×080ط"٠)‏ يسمح للمستخدم أن يختار أو أن يحرر البند الذي يختاره 
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في هذا الق م سنتعلم ک یف نض یف أو نحذف عنا صر وہہم)] إلى عنا صر تد كم 
القوائم بنوعيهاء كما سنتعلم كيف نڊني حدث يستجيب به البرنامج لاختيار ڊند معين من 
القوائم. 
1. تدريب: إضافة عنصر .ع][ إلى عنصر التحكم ×0 4)8¡ 
0. من قاد مة ۴11٥‏ أختار اceعزە۴ New‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
1 .قم بسحب عنصر تحکم من النوع ×11180 ورمیه فوق النموذج ۴٥۲۳٣1‏ سیحمل 
الاسم a0×1‏ 8ء1¡ آلياً. 


common Controls آ‎ n4 Forml nj 
Button 
CheckBox 
cCheckedL istEox 
ComboBox 

TT DateTimePicker 
4ھ‎ Lae 

A LinkLabel 

3 Listview 
askedTextRox 
TÎ Monthlalendar 
Tl NotifyIcon 

E Mı ımericl Down 


شكل 25-4: إضافة عنصر التحكم ×4)80ءi‏ 


الذي سوف يظهر هو ۴٠۲٣١1_1.044‏ أي حدث تحميل النموذج في ذاكرة البرنامج. 
3.أكتب التعليمات التالية في هذا الحدث. 


With Me.ListBox1. Items 
.Add ("red”) 

.Add ("blue”) 

.Add ("gqreen”) 

.Add ("yellow”) 

.Add ("orange”) 
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Add ("pink”™) 

. Add ("brown”) 

.Add ("black”) 
End With 


أنقر ۴5 لتنفيذ البرنامج. 


لاحظ أن القائمة أصبحت تحتوي على الألوان التي قمنا بكتابتها. 


a Forml 


شكل 26-4: التطبيق أثناء التشغيل 
1.1 . ملاحظات حول تعليمات البرنامج 
لعل القارئ لاحظ أن هناك تعليمات جديدة استخدمت في هذا التطبيق» لذلك سنتوقف 
عند هذه التعليمات قليلا. 
القسم التالي من التعليمات تحديدا هو ما يجب أن نتوقف عنده. 
With Me.ListBox1. Items‏ 


End With 

فالكتلة W1‏ 84 .... 1[ تستخدم عندما سوف نقوم بمجمو عة من العلميات 

على كائن ما. وهذا الكائن في هذه الحالة هو 80×1ء¡.م۷. أي أنه 80×1ء1 لكن لماذا 

قمنا بكتابته بهذه الطريقة؟ ه11 تعني النموذج تفسهء فكاننا نقول عنصر التحكم 114)80×1 
الموجود في النموذج .۴٥۲٣۵1‏ 
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إن هذه التعليمات يمكن كتابتها بصورة أخرى هي كالتالي 
Me.ListBox1.Add (“red”)‏ 
Me.ListBox1.Add (“green”)‏ 
Me.ListBox1. Add (“blue”)‏ 
Me.ListBox1.Add (“yellow”)‏ 
Me.ListBox1.Add (“orange”)‏ 
Me.ListBox1.Add (“pink”)‏ 
Me.ListBox1.Add (“brown”)‏ 
Me.ListBox1.Add (“black”)‏ 
وھکذا نکون ۱ ستغنینا عن ط٤ With ...٤ہ,4 W‏ لکذ نا قم نا بالکڈ یر من کتا بة 
التعليمات. 


1.27.1.2 الطريقة ۸4d‏ 
الطرڍ قة ۸ تس تخدم مع كلا من عنص ر التد كم ×0 1t8‏ وعنص ر التد كم 
×80 b0صC0m‏ لأضافه البنود» حيث تكتب بهذه الطريقة 
COREEOL AAA ILESM”)‏ 
ومن الواضح أن العناصر لابد أن تكون قيم نصية. 
2 تدريب: تصميم حدث للاستجابة على اختيار بند من القائمة 
انکفا ع اتن الساق. 


14 .قم بسحب عنصر تحکم من النوع ×0ط)×٥‏ 1 ورمیه فوق النموذج ۴٥۲٣۳١1‏ سیحمل 
الاسم b0×1)×م٦‏ آلیاً. 
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IF All Windows Forms 2| 
i Gommon Controls a Form] EAE 
aE) Button 
| CheckBox 
E2 checkedListBox 
Ef ComboBox 
TH DateTimePicker 
A Label 
A LinkLabel 
E3 ListBox 
33 Listview 
l-] MaskedTextBoxt 
FÎ Monthcalendar 
wl NotifyIcon 
El NumericUpDown 
lal Pict_reEox 

mM ProgressBar 

@ RadioButton 

3 RichTextBox 

i. ToolTip 

3> Treeview 

EJ WwebBrowser 


GREE 
و‎ 


شكل 27-4: إضافة عنصر التحم ×0 ۲١×8‏ إلى واجهة التطبيق 
أذ قر مرت ين فوق 0×1 18ء1 لتذ تح نافذة تحر ير التعليمات. معالج الحدث 
الافترا ضي الذي سوف يظ پھر هر ListBox1_SelectedIndexChanged‏ أي 
أكتب التعليمات التالية في الحدث. 


Dim ColorName As String = CStr (ListBox1.SelectedItem) 


If ColorName IsNot Nothing Then 


Mé.TextBOox1 .BağtkColoE = | 


System. Drawing.Color.FromName (ColorName ( 


BERQ. ‘TÊ 
أذقر على ۴5 لتتفيذ البرنامج. قم باختيار أحد الألوان ليتغير لون خلفية ال‎ 


Textbox‏ تبعاً للون الذي قمت باختیاره. 
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a Forml 


شكل 28-4: آئثر اختيار اللون الأخضر من 180×1ء11 على خلفية 0×1ط٤×۵٠۲'‏ 
2.1..ملاحظات حول تعلیمات البرنامج 
في هذا البرنامج هناك بعض التعليمات الجديدة المستخدمةء وفيما يلي سنتعرف على 
هذه التعليمات وما الذي تقوم به. 


في السطر الأول: 
Dim ColorName As String = CStr (ListBox1.SelectedItem)‏ 

قمنا بالإعلان عن متغیر مصه۲Nه1ه٤‏ من النوع ال- عمذع)؟؛ ثم استخدمنا دالة 
التحو يل مايوه إلى لذظي C5١‏ لتحو يل العنصر المختار «nع)آلع†ءم1مS‏ من قادذمة 
عناصر عنصر التحکم 0×1 8ء¡ . 

تم استخدمنا عبارة ¡f‏ محلو قة بشرط يتكون من عه" ۲ه1هC‏ و هو أسم المتغير 
الذي أعلنا عنه من قبل واختزنا فيه قيمة نص العنصر المختار من 80×1)ء1]. ثم IsNot‏ 
و هي دالة تس تخدم للمقار نة ب ين قيمذ ين» القي مة الأولى هي 8ص2 ]ه٤‏ والثاذ ية هي 
Nothing‏ وهي دالة أخرى تمثل ال u1‏ 


f ColorName IsNot Nothing Then 


4 
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وهذا يعني أنه إذا كانت قيمة ع2 0۲N[ه٥‏ ليست ]1ں N‏ فان الشرط يتحقق› لأن 
!N ٤‏ ترجع قيمة 8001٥20‏ هي ٥ا1۲‏ عند عدم التساوي و مء[ه۴ عند التساوي. 
وعند تحقق الشرط يتم تنفيذ التعليمات التالية: 


Mé;TêxtEBOxl. BackCéoloE = | 


System. Drawing.Color.FromName (ColorName (‏ 
تعرفنا فيما سبق على ٧16‏ والتي تعني ال ۴٥۲۳1‏ نفسهء ثم 0×1 1٥×8‏ وھو سم 
العنصر المطلوب تغيير خاصيته ١0[ه‏ )ء8 تم علامة التخصيص. 


الشرطة السفلية _ تعني أن السطر التالي هو مكمل للسطر الذي انتهى بهذه العلامة. 
ثم تخصيص لون باعتماد مكتبة ألوان خاصة سنتعرف عليها في مو ضع متقدم من 
هذا الكتاب. 
3. تدريب: تعيين ما إذا كان عنصر ما موجود في القائمة أو لا 
عند ما نقوم بإضافة عنصر إلى قادمةء فإنه غالبا ما لا نر يد أن يكون هذا العنصر 
مضاف من قبل. في التدر يب التالي نقوم بنسخ عنصر من ×810ء1] إلى عنصر تحكم 
سوف نضیفه على مشرو عنا هو ×080ططه) بأن ننقر عليه مرتین في ×0 8ء1. 
ضف عنصر تحکم ×080طا ٥0٥۳٣‏ بأن تسحبه من ال ٥×‏ ط1٥۲‏ ثم ترمیه 
فوق النموذج. يصبح الاسم الافتراضي لهذا النموذج هو .ComboBox1‏ 
في محرر التعليمات أختار من قاد مة ٥ص4"‏ sیھا€‏ عنص ر التد كم 
.ListBox1‏ 
مj‏ lãأئnة .Double Click رlتخİi Method Name‏ 
ListBox1 ls || 7 Doubleclick |‏ ® | 
شكل 29-4: İختlر .Method Name ja Double Click رڌخİs Class Name ja ListBox‏ 


في الإجراء الذي سوف يظهر بعنوان is8 0o×x1_D 0u b1٣ 11c)‏ قم بكتابة 
التعليمات التالية: 
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£ ListBox1.SelectedItem IsNot Nothing Then 
TE. NOE ,_ 


4ک 


ComboBox1. Items.Contains (Me.ListBox1.SelectedItem) _ 
Then 
Me. ComMbOBOoxXIL.. TEeRs Add (Me:.. LLStEBOxX1.SelegtedTtEeîî ( 


ERQ LÊ 


Me.ComboBox1.SelectedItem = Me.ListBox1.SelectedItem 


Bd EE 


a4 Forml jX 


شكل 30-4: البرنامج بعد تعديله أثناء التشغيل. 
2.3.1. تعلق على تعلیمات البرنامج 
ما سوف نعلق عليه في هذا الجزء هو السطر 
ComboBox1.Items.Contains (Me.ListBox1.SelectedItem)‏ 
وهو يعني أن ال b080×1صه€‏ يضم sمنھاه٥٤‏ ضمن عناصره وط ])٥‏ عنصر 
ڊlسp .Me.ListBox1.SelectedItem‏ 
4. حذف عنصر من قائمة 
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أضف التعليمات التالية فوق 1£ ل81 في ڪدث .ListBox1_ DoubleClick‏ 


Me.ListBox1l. Items. Remove (Me.ListBox1.SelectedItem) 
أضرب المفتاح ۴5 لتنفيذ البرنامج.‎ 


a Forml اتا‎ 


شكل 31-4: حذف العنصر مذ" من قائمة >80)ء1] »إضافته إلى >80 0طC0m€.‏ 
1.8استخدام عناصر İlتھكp DateTimePicker gy MonthCalendar‏ 
في هذا القسم سوف نتعلم كيف نعرض التاريخ فوق النموذج» وكيف يمكذنا أن ننشاأً 
حدث يعتمد على اختيار مستخدم التطبيق للتاريخ. 
ع ند | ستخدام عنا صر التح كم ال تي تظ هر التار يخ فإن هذا يض من لا مبرمج أن 
مستخدمي تطبيقه سوف يدخلون التاريخ بالهيئة المقبولة في مN.ع1ءمط‏ 21ئ۷ . 


تحتوي 2008 .1ی82 اھuںی۷1‏ على عنص ري تد کم للتار یخ ھ ما 
.DateTimePicker s MonthCalender‏ 


عنص ر التح کم er‏ ل1ھ ٣طtرہM:‏ حیث یظ ھر روزنا مة لش هر محدد یمکن 
للمستخدم أن يختار تاريخ محدد أو مدى من التواريخ. 


عنصر التحكم )ز۴ ءدم11ءa(:‏ ويظهر في حالتين» الحالة الافتراضية هو 


أن يظهر في صورة صندوق نصوص والی جواره سهم قادئمة منسدلةء عند الذقر عليه 
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تظ هر الروزنا مة و من ثم يتم اختيار التار يخ المطلوب. والحالة الثاذية هو أن يعرض 
1. تدریب: استرجاع البيانات من Month ٣°21 ede‏ وعرضها في Labe[‏ 
5.من قادمة ۴11e‏ أختار New Prec)‏ و من تبو یب القوالب عھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
6 .قم بسحب عنصر تحکم من النوع 1طا1 ورمیه فوق النموذج ۴٥۲۳۵1‏ سیحمل 
الاسم 11ءطه آلياً. 


7 .من نافذة )هم٥۴۲‏ أجعل خاصية 1٥×‏ لعنصر التحكم 11ط[ فارغة. 


8 .قم بسحب عنصر تحکم من النو ع ۴۲ل Month ٣21e‏ ورمیه فوق النموذج ۴٥٣٣1‏ 
سيحملJ‏ !لٺم MonthCalender1‏ الي . 

أذ قر مرت ين فوق عنص ر التد کم ۸۲1ء21٣‏ طامهM‏ لتقوم بذ تح محرر 

التغليمات على الخدت الافترا ضي لهذا العنص رة هو الخدت 
.MonthCalendarl1 DateChanged‏ 


9.أضف التعليمات التالية لهذا الحدث. 


Me:LaDELL.TexXE = |‏ 
CStr (Me.MonthCalendar1.SelectionRange. Start (‏ 
0. قم بس حب عنص ر تد کم من النوع ٥٣1)‏ ۲۳ء4( ورم يه فوق النموذج 
Jazıu Form1‏ |ام Date TimePicker1‏ آلياً. 
أذ قر مرڌ ین فوق عنص ر التد کم 1n ٥۴)۲1‏ مه( لتقوم بذ تح محرر 
التعليمات على الحدث الافترا ضي لهذا العنص 3 هو الحدث 
.DateTimePickerl1 ValueChanged‏ 
1 .أضف التعليمات التالية لهذا الحدث. 


Me.Label1.Text = 


CStr (Me.DateTimePicker1.Value) 
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قم بضرب المفتاح 5 لتنذ يد البرنا مج» ٹم جرب اختیار تار يخ من اأ 
.DateTimePicker1 ja pۃî MonthCalender1‏ 


a Forml 


3112008 1:13:01 PM 
Yarch, 2008 


1 
8 
11 12 13 14 15 
Te 19 20 22 
25 2 27 28 و2‎ 
30 31 
[__[Today: 3/21/2008 


Tuesday , March 1l, ا2‎ 


شكل 32-4: واجهة التطبيق. 
2 تدريب: استرجاع عدة بيانات تاريخ 
في التدريب السابق استخدمنا S4۲٤‏ .ع ع١2‏ 4Rءtءء1مS‏ لتكون القيمة المرتجعة من 
اختيار التاريخ في عنصر التحكم ۲1٥ل 21٥١‏ ٣طارهN×‏ هو أول تاريخ في يختاره المستخدم» 
لكذنا اشر نا فيما سبق أنه يمكن للمستخدم أن يختار نطاق معمهR‏ من التار يخء و في هذه 
الحالة يلزمه أن يختار الخاصيتين .SelectedRange.End s Selected Range.Start‏ 
العدد الافتراضي المتاح اختياره من الأيام هو سبعة أيام لكن يمكن تغيير هذه القيمة 
من خلاJ‏ اlخاصية .MaxSelectionCount‏ 
قم بتغی و ا في الحدث 
Month alendar1_DateChanged‏ ليصبح كالتالي: 
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Me.MonthCalendarl1l.MaxSelectionCount = 14 


Tf Me.MOontHCalendarl.SelectionRangée.STaEtl = | 
Me.MonthCalendar1.SelectionRange.End Then 
Me.Label1.Text = _ 

CStr (Me.MonthCalendarl1.SelectionStart) 

Else 
Me.Label1.Text = _ 

Me.MonthCalendar1.SelectionRange.Start & _ 
" —- " & Me.MonthCalendar1l.SelectionRange. End 
End If 


هذه التعليمات تج عل القيمة القصوى الممكن اختيار ها من الأيام هي أربعة عشرة 
يوم. ثم تستخدم الجملة 1۴ لاختبار ما إذا كان النطاق المختار في MonthCalender1‏ 
للخاصيتين † Selected Range. Sta‏ و SelectedRange.End‏ لهما نفس القيمة (أي أن 
المستخدم أختار يوم واحد) أم لا ( المستخدم أختار نطاق من الأيام)ء وفي حالة تحقق الشرط 
فإن ٥11‏ ط14 يعرض تاريخ يوم واحد فقط أما في حالة عدم تحقق الشرط فسوف يعرض 
11 تاريخ البداية والنهاية. 
أضرب المفتاح ۴5 اختبر تنفيذ البرنامج. 


3. شل بيانات التاريخ 

في كڈير من الأحيان قد يحتاج ال مبرمج إلى تغي ير الث كل الذي تظ هر به بيانات 
التار یخ» و في هذه الحالة فا نه يحتاج أن يقوم با ستخدام الوظۈی فة FormateDate Time‏ 
وإحدى القيم المبينة في الجدول اللاحق: 


القيمة مثال 
DateFormat. GeneralDate‏ 0 11/22/1963 
Friday, November 22, 1963 DateFormat. LongDate‏ 
DateFormat. ShortDate‏ 11/22/1963 
PM DateFormat. Long Time‏ 12:00:00 
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DateFormat.ShortTime 
تدریب: تعديل شكل بيانات التاريخ‎ 4 
قم بتغڍ ير التعليمات الموجودة‎ 
ليصبح كالتالي:‎ Month alendar1_DateChanged 


12:00 


ME.MOoORtHCaãLendar1:MaxSelectlonCoünt = 14 


Tf Mé.MONTHCaãLlendarl.Sélecti1onRange. Start = | 


Me.MonthCalendar1.SelectionRange. End Then 


Me.Label1.Text = FormatDateTime( _ 


Me.MonthCalendar1.SelectionStart, 


DateFormat. LongDate) 


Else 


Me.Label1.Text = FormatDateTime( _ 


Me .MGNthCalendartl .SelectLonRangê. Start, _ 


DateFrormat.LongDate) & " - " & FormatDateTime( _ 


Me.MonthCalendar1.SelectionRange.End, 
DateFormat. LongDate) 


End TÊ 


كما يلا حظ القارئ» فإن القيمة التي سوف تظهر 11ءطه] هي القيمة المختارة من 


Month Calender 1‏ لکن بعد تمریر ها من خلال الوظیفة ۴٥۲۳02021 1me‏ وتعیین 


شكل البيانات المرتج ılڌرj .DateFormat.LongDate‏ 


الصورة العامة للوظيفة ع1۳ 1ع)2 ع۵٣۲٠۴‏ هي كالتالي: 


)۴F0rmatDateTime( value, constant‏ حيٿت ue[هں‏ هي قيمة التاریخ المراد 


إعادة صياغة شكله» بينما ٤.هوم‏ مء هو أحد القيم من الجدول السابق. 


أضرب المفتاح ۴5 لتتفيذ البرنامج. 
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all1.29كùa ErrorProvider‏ 
عاملنا مع المكونات وأرعصممmه٥‏ سابقا حيذما قدمنا المكون إعص11. في هذا 
القسدم نقدم مکون آ خر هو .٤۲۲ ٥۲۴٥۷1۲‏ الوظيفة الأ ساسية للمكون Err01Provid er‏ 
مساعدة المبرمج ومستخدم التطبيق على التأكد أن مدخلات البرنامج مطابقة لتصميمه. 
1ر تدريب: التحقق من المدخلات ڊlستخدIم ErrorProvider‏ 
في هذا التدر یب سنستخدم المکون ل۷1٥۴ E۲٣٥۲‏ للتحقق من مطاڊقة مدخلات 
التطبيق عبر مجمو عة من صناديق النصوص ٠١×80×‏ للغرض التصميميي. 
2. من قاد مة ۴11٥‏ أختار cet٥ز٥ا٣ New‏ و من تبو یب القوالب ھام ط٥٣‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
3.قم بسحب عنصر تحکم من النوع ٥1‏ طه.] ورمیه فوق النموذج ۳٥۲٣۳۵1‏ سیحمل 
الاسم Label1‏ آلياً. 
4 .قم بتغيير قيمة الخاصية 1٥×‏ لعنصر التحكم 11ءط14 لتصبح عمصإNa.‏ 
5.قم بسحب عنصر تحکم من النوع 1طا1 ورمیه فوق النموذج ۴٥۲۳۵1‏ سیحمل 
الاسم Label2‏ آلياً. 
6 .قم بتغيير قيمة الخاصية 1٥×٤‏ لعنصر التحكم 12ءط4] لتصبح عع ۸. 
7.ٴٴ ضف ٦٥×8B0×‏ أمام کل عنصر تدکم 1٥طھ1‏ لیص بح لد يك 1٥×80×1‏ و 
.TextBox2‏ 


8. قم بس حب مکون من E0۲۴ 0۷1d ٥e۲‏ من تبو یب sأ1ع«ممصه٣‏ في ال 


1٥01 0×‏ ورمیھ فوق النموذج ۴٥۲٣1‏ سیحمل الاسم ¡de۲1‏ ۷٥إError۴‏ آلیا. 
9.افتح محرر التعليمات. 
0 .من قائمة eص2ہ1‏ ssءھ€1‏ أختار .ext8B 0x2‏ 
181.من lئnة Validating رlتخİi Method Name‏ . 


أضف التعليمات التالية إلى الحدتث :TextBox2 Validating‏ 
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TÊ Not ISNumerlLé (TextEBOoOx2. Text) Then 


EELOEPEOVIdEEL4SSEEEEOEF(TEXEBORA 
"You must enter a numeric value.") 
Else 
ErrorProvider1.SetError (TextBox2, "") 


ERAQ. TÊ 


اضرب المفتاح 5 لتنفید البرنامج واختباره. 


2. تليق على تعليمات التدريب 
استخدمنا في هي التعليمات الوظيفة >ا٣ءمصںل؟]‏ والتي ترجع قيمة عںع] إذا كان ما 
بين القوسين رقمي وقيمة مو[ه] إذا كان ما بين القوسين غير رقمي. 
في حال عدم تح قق شرط أن قي مة 0×2 1٥×8‏ هي قي مة رقم يةء فإن الكائن 
ErrorProvider‏ سوف يظهر علامة تنبيه إلى جوار الكائن ٠١×80×2‏ عند الإشارة إلى 


هذه العلامة بمو شر الفارة تظهر الر سالة You must enter a numeric va] ue‏ . وذلك 
نتيجة استخدام التعليمات في الصورة التالية: 


EFEOEPEOVLIQAEEL. SSLEEFEOE (TEXEBOXZA, _ 


"You MUST ênNteF ã Hiumefl1c valuéê:™) 
اسم الكائن الذي سوف تظ هر إلى‎ SetError حیث ډتم أضافه دين الأقواس ڊأ‎ 
جواره علامة التنبيه» ثم الرسالة التي سوف تظهر عند الإشارة إلى علامة التنبيه.‎ 


0.استخدام صناديق الحوار Dialog Boxes‏ 


يتوفر في 2008 .10ء82 u21ء۷‏ مجموعة من عناصر التحكم التي تيسر على 
المسدتخدم عدد من العمليات الروتيذية في الت طبيقات العاملة في بيئة التشغ يل 0۴وهإMic‏ 
6ل مثل نافذة فتح الملفات أو نافذة اختيار الألوان. ويطلق عل هذه العائلة من أدوات 
التحكم اسم صناديق الحوار وم×80 عه اه1 و هي التي يمكن الاطلاع عليها في التبويب 
8s‏ في ال ط1٥۲‏ كما هو مبین في شکل 4-33. 


91 


ال رت باسنغدا م2008 isua1 Basic. N٤7‏ - وسا مالدین عمد 


Toolbox ر‎ 
FA All Windows Forms n 
Fi Common Controls 
F Containers 
Fi Menus # Toolbars 
Fl Data 
Fl Components 
Fl Printing 
| = Dialogs 
k Pointer 


ColarDialng 
FolderBrowserDialag 
FontDialag 

OpenFileDialog 
SaveFileDialog 

Reporting 

Fi ¥Yisual Basic PowerPacks 

= General 

kk Pointer 

lê Map Control %4 


FA Bl Êl FÎ 


شكل 33-4: تبویب sچم[ھ¡5‏ 


ويجب أن ننوه أن هذه العائلة من عناصر التحكم هي من جنس المكونات أي أنها لا 

تظهر فوق النموذج. 

1ہ تدریب: استخدام صiدوق‏ |İھlgر FolderBrowser Dialog‏ 

2 .من قاد مة ۴1٥‏ أختار New Prec)‏ و من تبو یب القوالب عھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 

3.قم بسحب عنصر تحکم من النوع 1طا1 ورمیه فوق النموذج ۴٥۲۳٣۵1‏ سیحمل 
الاسم 11ع طم آلياً. 

4 .قم بسحب عنصر تحکم من النو ع 8)0١‏ ورمیھ فوق النموذج ۴٥۲۳1‏ ثم قم 
کر کا رای ان لے 


E E 
FolderPath 


5 .قم بسحب عنصر تحکم من النو ع ۴٥1٥۲8۲٥۳۷٥۲1210‏ ورمیهھ فوق النموذج 


Jaaıw Form1‏ !ٺم FolderBrowserDialog1‏ آلیاً. 
أذ قر مرت ين فوق المفتاح لتقوم بف تح محرر التعليمات على الحدث 
.FolderPath_ Click‏ 
أضف التعليمات التالية للحدت :FolderPath Click‏ 
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TÊ FoldérBEOowserDialoğg1..ShowDlalog() 3= | 
Windows.Forms.DialogResult.OK Then 


Label1.Text = FolderBrowserDialog1.SelectedPath 


End If 
أضرب المفتاح ۴5 من لوحة المفاتيح لتنفيذ البرنامج. عند تنفيذ البرنامج أنقر‎ 
لينطبع عنوان‎ 0K المفتاح ۴1 لتظهر نافذة تصفح المجلدات أختار مجلداً وأذقر‎ 


المجلد في عنصر التحكم ۲11٤طه.].‏ 


® WindowsApplication1 (Running) - Microsoft Visual Studio ت‎ 


„Form. ## Form 1 en xX | w x Solution Explorer wR x 
ENE 
9# Fold ll | cick ا ر‎ 
ERT 0 || E WindowsApplication1 
A My Project 
ڪڪ ڪڪ‎ wm. EventArgs) Hi E Form1.vb 
Browse For Folder xX 
Û Desktmp a 
a @ Hy Documents 
B® My Computer 
اسنا‎ E € my Network Places = 
8 Recycle Bin جم‎ 
Solution Ex... gJData Sources 
Û apt 2 اس ت ی‎ 
Û 4Rading Properties wR x 
Û Ahmed_Ne3in3 FolderPath_Click 4tiributes 
O Cover 5 
Make hew Folder OK Cancel 
ا‎ 
1 1 اا‎ 
Error List wR x 
Qo0Errars 4 0 Warnings 1 JO Messages | 
Description Fila Lina Column Project 
immediate Window E] Cutput |g Error List 


Ready Lng coal 15 this INS 


شكل 34-4: التطبيق أثناء العمل. 
کو ا ات ت کے ار 
في البداية استخدمنا العبارة ۴] لاختبار الشرط: 


FolderBrowserDialogl1.ShowDialog() = _| 
Windows.Forms.DialogResult.OK Then 


وهو شرط نوعا ما مركب حيث يقوم بالتالي: 


أظهار واجهة عنصر التحكم 1ع10ه۲51عءW‏ ٥۲8ء11٠۴‏ وهي التعليمات 
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FolderBrowserDialog1.ShowDialog ()‏ 
Windows.Forms.DialogResult . OK‏ 
وهو الذي يعني النقر فوق المفتاح )0. 
وع ند تح قق هذا الشرط فإن الخا صية 1٥×٤‏ لعنص ر التد كم Lab11‏ تص بح 
تساوي: 
FolderBrowserDialog1.SelectedPath‏ 
وهو ما يعني أن هذه الخاصية سوف يختزن فيها المجلد المختار من عنصر التحكم 


FolderBrowserDialog1 

2. تدریب: استخدام صندوق الحوار چہ[ھi ۴٣٣۲D‏ 

6 .قم بسحب عنصر تحکم من النو ع 8)0١‏ ورمیھ فوق النموذج ۴٥۲۳1‏ ثم قم 
بتغيير خصائصه للتوافق مع الجدول التالي. 


قم بس حب عنص ر تد کم من النو ع عهاھ1 ۴۵٣۲‏ ورم يه فوق النموذج 
۴1 سیحمل الاسم 10g1ھDi٤n‏ ۴0 آلیاً. 


أذقر مرتین فوق المفتاح ۲٠١×۴٣٤‏ لتقوم بفتح محرر التعليمات على الحدث 
.TextFont Click‏ 


أضف التعليمات التالية للحدت :TextFont_ Click‏ 


FontDialog1.ShowColor = True 


If FontDialog1.ShowDialog() = 


Windows.Forms.DialogResult.OK Then 
Label1.Font = FontDialog1.Font 


Label1.ForeColor = FontDialog1.Color 
Enid TÊ 
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أضرب المفتاح ۴5 من لو حة المفاتيح لتنذيذ البرنامج. عند تتذيذ البرنامج أذقر 
المفتاح ۴٥٣۲‏ لتظهر نافذة ضبط الخط قم بضبط الخط كما تشاء ثم انقر المفتاح 


.].ه0٤۲11 ليتغير الخط المستخدم في عنصر التحكم‎ 0K 


e 
File Edit View Project Build Debug Tools Test Window Help 
Ta Ea Ela ELA LES EEE reee RN 
EEE 
Form1., w xX | Solution Explorer wR x 
| Formı Font Ax 5 ت ا‎ E ee 
سڪ‎ 3 El WindowsApplication1 
E Puml Labell Font Font style: Size 2 Bã My 0 
Mierosott Sans Serif Regular 8 Dk. 1 3 ERIE 
۳ Aras) Hi 8 
Path For O Microsoft Sans Serif |^ | Regular 8 تت‎ 
مالتسا‎ TE Mil Symbols O1 | talc 9 
FR Mil Symbols O2 Bold 10 
| Mil Symbols 03 Bold Italic 11 
TE Mil Symbols 04 12 
| FF Mil Symbols D5 14 
FH Mil SymMod O1 16 
Effects Sample 
Stikeout 
AaBbi! 
Underline ا‎ 
1 2 gs) Hani 
olor أ‎ 2 
E 1 Solution Ex... gata Sources 
If FontDialog1.ShowDialo) |B Black e] Sait > 
Windows. Forma. Dialog Westen افا‎ Properties we] x 
Label1.Font = FontDi Faorm1 Aûttr ibutes 
Label1.ForeColor = F 
a= 
End IF 222 ٤ 
COM Class False 
End Sub کد‎ COM Visible True 
ls 5 Serializable False 
Error List wR x 
@QuErrars | M0 warnings || (iJ O lessages 
Description File Lina Colurmn Project 
COMI Class 
Expose Class to COM, 
immediate Window E] Cutput | Error List 
Ready Ln 12 cal 5 ch 5 


INS 


شكل 35-4: أضافة عم ۴٠,٤51‏ للتطبيق. 
3. تدریب: استخدام صندوق الحوار 0g[ھ¡0 C٥10۲‏ 


7 .قم بسحب عنصر تحکم من النو ع 8)0١‏ ورمیھ فوق النموذج ۴٥۲۳1‏ ثم قم 


بتغيير خصائصه للتوافق مع الجدول التالي. 


قم بد حب عنصر تد کم من ھ1۲1٥٤‏ ورم یه فوق النموذج ۴٥۲٣۳1‏ 


سیحمل الاسم 1ع10ھor0iاه٤‏ آلیاً. 
أذ قر مرت ین فوق المفتاح ۴٥٣٣٣ ٥1٥۲‏ لتقوم بف تح محرر التعليمات على 


.FormColor Click الحدث‎ 
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أضف التعليمات التالية للحدث :FormColor _Click‏ 


If ColorDialogl1.ShowDialog() = _ 
Windows.Forms.DialogResult.OK Then 
Me.BackColor = ColorDialog1.Color 

End If 


أضرب المفتاح ۴5 من لو حة المفاتيج لتتذيذ البرنامج. عند تنذيذ البرنامج أذقر 
المفتاح ١ه1ه٥‏ لتظهر نافذة اختيار اللون أختر لون مناسب ثم انقر المفتاح 0K‏ 
ليتغير لون خلفية النموذج. 


ا St‏ ص 


File Edit Yiew Project Build Debug Data Format Tools Test Window Help 


E ERE TIENT ”فة 8 هکی ف کا یک ی ع یی ی کا‎ 
ا خی ی کی سک کے ی س‎ e 
Forms = xX) w x Solution Explorer # x| 
NE EAVEEE 
Color 2 ل ا‎ 
اه‎ Labsi1 x Ê WindowsApplication1 
ا‎ Basic colors Al wiy Project 
EMI CE SET Ê Formı.yb 
اق‎ mHEEHHENHEHE 
TINI TIIT 


Custom colors: 

| 

 #ISolution Ex... Data Sources]‏ ا 
فل كا 


1 Define Custom Colors ++ [Properties wR x 
| FormColor System.Windows,.Fc = 
az. Eh FE 
ENE 


lFolderErowserDialag1 AA Fontbialog1 #lcolorDialag1 (DataBindings |د‎ 
Name) FormColor =| 
AcressibleDas 


ArcessibleNar 


Error List ا ج‎ AccessibleRol Default 
Qn Errors | hn warnings || Ci) 0 messages | Alloworop False 
Description File Line Column __ Project Anchor Top, Left 
AubEllipsis False ۳۹ 
| EERE E EEN فغ‎ 
{Name} 

: . Indicates the name used in code 
lImmediate Window Ê] Cpu | ty Error List to identify the object. 
و ھک ےہ نھ وو ے4 اوہ ب ہے‎ 

Ready 


شكل 36-4: استخدام ال 0g[ھ¡or(0اCo.‏ 
1.استخدام عنصر تحكم أشرطة الأدوات pذ ۲٠۵٥۱5)‏ 


تعتبر أشرطة الأدوات مكون رئيسي من مكونات واجهات التطبيقات العاملة في بيئة 
التشغيل sس0لمW1‏ 0۴ءهء۷1. في هذا القسم سنتعلم كيف نقوم بإضافة أشرطة الأدوات 
إلى واجهات تطبيقاتنا وكيف نقوم بإضافة مفاتيح الأدوات إليها وربطها بالتعليمات. 
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1. تدريب: إضافة شريط الأدوات 
8 .من قاد مة ۴1٥‏ أختار New Prec)‏ و من تبو یب القوالب ھام ط٥۲‏ أختار 
Windows Application‏ تم أنقر المفتاح .0K)‏ 
9 .قم بسحب عنصر تحکم من النو ع 015†٣1p‏ 10 من llتبو‏ يب Menu & Toolbars‏ 
ورمیه فوق النموذج ۴٣۲٣۳٣1‏ سیحمل الاسم ٦٥۵18٤۲11‏ آليا ويشغل الحرف الأعلى 
للنموذ ج .۴٥۲٣۳۸1‏ 
أنقر فوق السهم لتظهر القائمة المنسدلة وأختر منها ١٥ا8‏ إضافة مفتاح إلى 


شريط الأدوات وهو يحمل |لاwم .ToolstripButt0n1‏ 


„ Forml.vb[Design]” | 


Label 


splitButton 
Drop DownButton 


separator 
=? | ComboBox 
TextBox 


uw] ProgressBar 


شكل 37-4: إضاغفة ToolIStrip JآÛإ Button‏ 
قم بض بط خص ائص المفتاح ٣ ٥هاآء)ا1م 8» ))٥١1‏ لتص بح كالمبي نة في 
الجدول التالي: 


الخاصية القيمة 


0 
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DisplayStyle 


0 .قم بسحب عنصر تحکم من النو ع ×0 1٥×8‏ ورمیه فوق النموذج ۴٥۲٣۳٣1‏ سیحمل 
الاسم ۲e×)80×1‏ آلیاً. 


1 .أضبط خصائص ال ×0ط×١٠‏ للتوافق مع الجدول التالي: 


.Click 


أضف التعليمات التالية للحدث )ع1ا€_اCu:‏ 
Me: TEXEBOXTL CUE 0)‏ 
أضرب المفتاح ۴5 من لو حة المفاتيح لتنذيذ البرنامج. ظلل أيا من الكلمات 


الظاهرة في ال 1١×180×‏ ثم أنقر المفتاح ٤ا٥‏ لترى كيف تم قصها. 
2. إضافة شريط أدوات قياسي 


شر يط الأدوات القيا سي هو شر يط الأدوات الذي يحتوي على وظائف ,سمN١N‏ 
Open, Save, Print, Cut, Copy, Paste, Help‏ و هو موجود في غالب ڌطبیقات 
.Microsoft Windows‏ ويسھل 2008 Visua1 basic. NET‏ إضافة مثل هذا الشريط 
القياسي للتطبيقات» كل ما تحتاجه هو أن تنقر على السهو الموجود في الركن الأيمن الأعلى 
من شر يط الأدوات لتظ هر القاد مة المنس دلة الخا صة به وأختر Insert Standard lia‏ 
كما في تم يكون عليك بعد ذلك كتابة التعليمات لكل منها. 
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: ToolStrip Tasks 
Errbed in ToolStripContainer 
Insert Standard ems 


Renderlode | ManagerRender™ 


This is a simple test 


Dock Top ا‎ 
GripStylê Wisible 4 
Edit Items... 


38-4: إضافة شريط الأدوات القياسي. 
2 استخدام عنصر التحکم ¡eW‏ ۷٥ء٣‏ 
يمك نك أن تض في على ب عض تطبيقا تك مظ هر مقارب لمظ هر Widows‏ 
Explorer‏ وذلك با ستخدام عنص ر التد کم 1۲٥٥۷1۴۷‏ یعرض عنص ر التھ کم 
"ree View‏ البيانات في شكل شجرة تتكون من وعم" . وتنقسم هذه ال ومله× على ثلاثة 
أقسام هي: 


Parent Nodes 
Child Nodes 
Root Node 
ءRo0t‎ N0لم حيث تمتل ال ملم" الأساسية التي تتشعب عنها جميع الشعب ال‎ 
Parent -J مw|‎ Nodes -J| بيذما يطلق على أي عله يتشعب مذها واحدة او أكثر من‎ 
ئ وأخيراً يطلق اسم ال وله 14ط على هذه التي لا يتشعب عنها شئ.‎ 
تدريب: أنشاء متصفح لمواقع الانترنت‎ .1 
و من تبو یب القوالب ھام ط٥۲ أختار‎ New Pec) أختار‎ ۴1٥e .من قاد مة‎ 2 
.0K) تم أنقر المفتاح‎ Windows Application 
۴٥٣۳٣1 ورم یھ فوق النموذج‎ 1۲٥۵۴۷1٤۷ قم بس حب عنص ر تد کم من النوع‎ .3 
آلیاً.‎ ٦۲٥۵۴۷1٤ W1 سیحمل الاسم‎ 
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4.قم بسحب عنصر تحکم من النو ع ۷580s‏ ورمیهھ فوق النموذج ۴٥٣٣1‏ 
سیحمل الاسم Web8 0W se۲١1‏ الیاً. 
5 .قم بضبط خصائص عناصر التحكم للتوافق مع الجدول التالي: 


7164,54 


190,530| Size| | 
WebBrowserl 


قم باختيار عنص ر التد كم 1۲٠١۷1٥۷1‏ تم أذ قر على الس هم الموجود في 
الجا نب الأي من الأعلى لتحص ل على القاد مة المنس دلة لهذا العنص ر وأخ تر ۴d٤‏ 


6 كما بالشكل شكل 4-39 لتذتح نافذة معالج تحر ير ال كعلهN‏ المبينة في 
شكل 4-40. 


" Treeview Tasks 
Edit Nodes 
Imagelist (nane) اا‎ 


Dock in parent container 


شكل 39-4: فتح معالج تحرير ال ومله.. 
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TreeNode Editor 
Select a node to edit: Properties: 
+٢ 
¥ 
* 
Add Root 
Ok Cancel 


شكل 40-4: معالج تحرير ال ءمءلهN.‏ 


أنقر فوق المفتاح .Add R00٤‏ 
5 قم بتغيير قيمة الخاصية 1e×†‏ لتصبح Visual Basic Forum‏ . 
انقر المفتاح .Add Child‏ 


Visual Basic Express حڊصتl‎ Node lI قم بضبط خاصية ×1 لهذ‎ 


.Edition 
ثانية.‎ ۸١4 ٣111ل انقر المفتاح‎ 
. Visual Basic 1DE حڊبصتl‎ Node قم بضبط خاصية )×1 لهذه ال‎ 
انقر المفتاح ل111٣ ۸4 مرة أخيرة.‎ 
Visual Basic بح‎ صتl‎ Node — Jا قم بض بط خا صية )×1 لھذە‎ 


.Language 


أذ قر مرت ين فوق 1۲۴١۷1۴۷1‏ لتحص ل على معالج الحدث المس مى 


.TreeViewl_ AfterSelect 
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أضف هذه التعليمات للحدث: 


COM" 


COM" 


. com/™ 


CoM " 


2 


E 


E 


Select Case e.Node.Text 


Case "Visual Basic Forums" 


WebBrowserl1.Navigate ("http://go.microsof 


& "fwlink/?LinkID=82999") 


Case "Visual Basic Express Edition" 


WebBrowserl1.Navigate ("http://go.microso! 


& "fwlink/?LinkID=82994") 


Case "Visual Basic IDE" 


WebBrowserl1.Navigate ("http://go.microso! 


& "fwlink/?LinkID=82996") 


Case "Visual Basic Language" 


WebBrowser1.Navigate ("http://go.microsoft. 


& TEWLILRKJ?LILRKID=82997"™) 
End Select 


أذ قر فوق ۴5 لتت يذ البرنا مج. لا حظ أنه من المفروض أن تكون متصدل 
بالانترنت حتى لا تحصل على صفحة عدم التحميل. 


أختر أي من ال كم لهل لتحميل محتوياتها في |ئ— .webBrowser‏ 
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Quick Links 7 | Home | Worldwide 


@Home @sSearch &EMy Threads (EMember List E Top Answerers 


| Search 


MSDN Forums *» Visual Basic * Visual Basic Language 


E 
Visual Basic Language 


Questions and discussions regarding the VB language, com 


VB framework/runtime - including things like generics, lan: 
keywords, My namespace, (Not for VB6) 


Subscribe 
Last Post 


Announcements and FAQs 
Announcing the 
Forums Bug 
Submission Pilot 


by Craig Hackl 8 
18 Jan 2008 7:24 PM UTC 


شكل 41-4: استخدام البرنامج في تصفح موقع .Visual Basic Language‏ 
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Windows Presentation Foundation ڍ“‎ ii 


WPF 


في هذا الق م نقدa‏ تiã‏ ڍة Windows Presentation Foundation WPF‏ 
للقارئ» وتم ثل هذه التقذ ية أ حد الإضافات الجديدة” إلى 2008 Visual Basic.NET‏ لم 


يم كن تعر يف تقذية ۷۴۴ باختص ار أنها تقذية لإنتاج الواجهات الر سومية. و هي 
مضمنة في .3.0 )اه ٥W‏ ه۴۲ N٤۲‏ ومن تم فإن التطبيقات التي تحتوي على مثل هذه 
التقذ ية يم كن أن تع مل مباشرة على ùl Windows XP SP2 s Windows Vista‏ 
تعمل على غير ها من النظم. 

ولمعر فة الفارق ب ين الواجهات المطورة با ستخدام W۴‏ عن تلك الواجهات 
التقليد يةء يم كن أن تتذخ يل ب ين الواجهات ال تي يجرى تنفيذ ها با ستخدام برنا مج ما0ل۸ 
طیه۴1 وواجهات التطبيقات المعتادة, 

وقد صممت هذه التقنية كي تسمح للمطور بدمجها في تطبيقات وس 0لم التقليدية 
أو دمجها في تطبيقات الوب» ولذلك فهي تعتمد بصورة كبيرة على تقذية أخرى مخصصة 
للسدكريبت الخاص بالوب هي تiية Extensible Application Markup Language‏ 
.XAML‏ 

و قد ضم نت ۴ وم٥1٧‏ أدوات لتطو ير ت طبيقات لهذه التقذ ية في منتج ين لهاء 
Expression Blend s Microsoft Visual Studio.NET 2008‏ tگMicroso.‏ وفي 
هذا القند م سنتعرف على طرق تطو ير الت طبيقات با ستخدام هذه التقذ ية مع إجuئ¡۷‏ 
.Basic.NET 2008‏ 


3 تصمیم واجھة تطبیق باستخدام WPF‏ 
في هذا القسم سنتعرض لانشاء تطبیق ۷۴۴ وإضافة عناصر إلى واجهته. 


عرفت هذه التقنية أثناء مرحلة التجريب باسم Avalon‏ ڍو .WiFX‏ 
في المعتاد لا تصل البرمجيات إلى صورة مثلى قبل الإصدارة الثالثةء وفي اعتقادي أن تقنية ۷/۴۴ لم تشذ عن هذه القاعدة. 
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لا يختلف إنشاء واجهة تطبیق ۷۴۴ عن أنشاء واجهة تطبيق تقليدي» حيث يمكذنا 
إضافة أي عنصر تحكم بسحبه ورميه فوق الواجهة. لكن هناك بعض الاختلافات التي يجب 
أن نأخذ ها في الاعتبار. فإلى جا نب نافذة التص ميم ونافذة الأدوات ونافذة الخص ائنص هناك 
نافذة جديدة تظ هر هي نافذة XAM‏ وك ما قد Extensible يùi z#ö XAML jl Ii‏ 
Markup Language‏ icationاpمAp‏ والتي هي لغة سکریبت' تس تخدم لبناء واجهات 
"P۴‏ . الث كل التالي - شكل 5-42 - يبين محرر ۸1× في بيئة التطو ير المتكاملة ل 
Visual Basic.NET 2008‏ . 


E XAML 


Window x:Class="Window1” 
xmlns=http:fschemas.microsoft com/wWinf xf 238ME xamlfprêe... 
xmlnS:#= "http: Schemas. mMicrosoft, com minf xf 4QORIxXaml" 
Title="Window1" Height="306" Width=" 300"? 


rid? 
“| Height="26" HorizontalAlignment="Left" Margin="27... 
Button Helght="23" HorilzontalAlignment="Right" Margin=“û... 
EFA 
XAML شكل 42-5: محرر‎ 


في التطبيقات التقليدية يمكن أن نضيف عناصر التحكم إما عن طريق سحبها ورميها 
فوق النماذج» أو - وهذه الطريقة غير المعتادة - نس تخدم تعليمات لإنشاء عنا صر التد كم. 
وعندما نقوم بسحب عنصر التحکم ورمیه فوق النموذج»› فإن ¡sua Stu di0.N٤1‏ یقوم 
تلقائيا بتو يد التعليمات اللاز مة لإنشاء هذا العنص ر. وبذ فس الطري قة ع ند أنشاء د طبيقات 
WPF‏ إن Visual Studio.NET‏ یمک نھ أن یولد تعلیمات 1_1 ۷N‏ ۸× آلیا أو أن یقوم 
المبرمج بكتابة هذه التعليمات بنفسه. 


سكريبت ]۸۷× يكون مقسما إلى وسوم وعه٣‏ بطريقة هرمية. وكل وسم يكون 
معرف بين أقواس مثلثة < > كما أن هناك وسوم بدء وأخرى وسوم نهاية. فمثلاً يمكن إضافة 
عنصر تحکم من النوع ١٥ں B‏ بمجرد إضافۂ < ۸٥)tں8u/>‏ <,ہ٥)Butt>‏ إلى تعليمات 


1 لغات السكريبت هي اللغات التي تعتمد في المقام الأول على الوسوم ووج ولا يتم تجميعها إلا لحظة تنفيذها باستخدام برنامج 
التنفيذ» وهي شائعة في تفنيات الوب ومن أمٿلتھا .HTML« XML.« PHP‏ 
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/< و سم البدء و يم ثل‎ >8 ))١ < المسئولة عن و صف الواجهة. حيث يم تل‎ M1 
و سم النھاية. کما یمکن ضبط خصائص عنصر التحکم من خلال تعییذھا داخل‎ >Button 
وسوم البدء حيث تكتب قبل قوس الإغلاق > حيث تكتب أسم الخاصية ثم يليها علامة = ثم‎ 
Button Widh=”200”> Îڌnف‎ «"" قي مةالخا صيةڊ ين علامات تنص يص‎ 
نة طة‎ ۲٠۰١ تع ني أنشاء عنص ر تد كم من النوع ١0))اں8 بعرض‎ >” Height” 0 
نقطة.‎ ٠٠١ وارتفاع‎ 

وعندما يقوم المبرمج بسحب عنصر تحكم من ال- >هط[امه] ورميه فوق النموذج 
فإن 1ئ82 1و۷ يقوم بإنشاء وسوم ]۸۷× الخاصة بهذا العنصر. فمثلاً عند سحب 
عنصر التحكم ))8 ورميه فوق النموذج تضاف الوسوم التالية إلى تعليمات اAM×.‏ 


<Button Height="23" Margin="102,45,101,0" 
Name="Buttonl" VerticalAlignment="Top">Button</Button> 


وكما يرى القارئ تتعين خصائص هذا العنصر من خلال هذه الوسوم. 
1. تدریب: أنشاء تطبیق W P۴‏ 
6ئہ.من lãئnة .New Project ةذفlill جتiiî .New Project رlتخİ File‏ 
7 تتأکد ان إصداره ۲)۰ ۴۲۵۳۷0 N81‏ المستخدمة هي على الأقل الثالثة. 
.WPF Applications رlتaخİ Templates jn.198‏ 
9.في الخانة ۳8 أكتب اسم التطبيق الذي ترغب في إنشاءه أو دع التسمية التلقائية 
.wpfApplication1‏ 
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r - 
New Project 
Project types: Templates: ‘NET Framework 3.5 | wı E 

visual Basic visual Studio installed templates 

Windows) 
Web windows Forms Application Class Library 
Smart Device AJWPF Application FEWFF Browser 4pplication 

t- Offre Fconsole Application KEEmpty Project 

Hatha HElWindows Service E WPF Custom Control Library‏ أ 
Reporting [#IWPF User Control Library Windows Forms Control Library‏ 
Test‏ 

Hy Templates 

WCF 
Workflow Search online Templates... 


E Visual C# 

EB Visual C++ 

f Other Project Types 
IB: Test Projects 


Windows Presentation Foundation client application (NET Framework 3.5} 


Name: WpfApplicationd 


شکل 43-5: أنشاء تطبیق P٥۴‏ ۷ جدید 


يتم آنشاء تطبیق ۷۴۴ جديد» يضم نافذة جديدة أسمها 1 س0ل م1 »W‏ وتظهر وسوم 
M1‏ الخاصة بالتطبیق في محرر M1‏ ۸> کما یلي: 


<Window x:Class="Windowl" 


xmlns="http://schemas.microsoft.com/winfx/2006/xaml/pre 
sentation" 


xmlns:x="http://schemas.microsoft.com/winfx/2006/xam 
1 


Title="Windowl" Height="300" Width="300"> 


<Grid> 


</GEId> 


</Window> 


أنقر فوق W1‏ 0ل" W1‏ لاختيارها. 


غ ير خا صية 1te‏ في و ږوم XAML‏ lتص‏ بح Title=”WPF‏ 
icationاApp”‏ وتصبح وسوم ۸1× کكکالتالي: 


<Window x:Class="Windowl" 


xmlns="http://schemas.microsoft.com/winfx/2006/xaml/ 
presentation" 
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xmlns:x="http://schemas.microsoft.com/winfx/2006/xam 
1 


Title="WPF Application" Height="300" Width="300"> 
<Grid> 


</GELA> 


</Window> 
یمکن أن یختبر القارئ أن يقوم‎ ۷P۴ ۸ امم‎ ٥۸ يتغير عنوان النافذة لیصبح‎ 
. Height و‎ Width بتغيير الخصائص الأخرى متثل‎ 
.W P۴ تدريب: إضافة عناصر التحكم إلى نافذة‎ .2 


فی ها الريب سم اشاق عاضر تك إلى فطق 6 وهر ما م به 
بالطريقة التقليدية بأن نقوم بسحبه من ال ×0 ط101 ورميه فوق النموذج. ثم سنقوم بضبط 


بعض خصائص هذه العناصر باستخدام وسوم .XAML‏ 
قم بسحب ]۲٥×180×‏ من ال ×٥ط1١٠۲‏ تم أرميه فوق نافذة التطبيق. 
أنقر فوق ×0 10×8 لتختاره. 


في نافذة الخصائص ابحث عن الخاصية Horizonta1A 11g ¬٤‏ ثم أجعل 


.] قیمتها ع‎ 
Properties 
Height 23 
HorizontalAlig... ا |+| ا‎ 
Margin 2A5, 00 


شكل 44-5: ضبط الخاصية HorizontalAlign ment‏ 
أضبط بقية الخصائص لتوافق الجدول التالي: 


VerticalAlignment 
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1e×80>×‏ لتص بح ٠٠١‏ و قم بتغي ير خا صية ١1عN2۲‏ لتص بح 30,56,0,0. من 
المفترض أن تكون الوسوم لها الصيغة التالية: 


<TextBox Height="26" HorizontalAlignment="Left" 
Margin="30, 56, 0,0" 


Name="TextBoxl" VerticalAlignment="Top" 
wWwidth="140" /> 


اضف ١۸٥)tںBu‏ إلى واجهة WPF‏ . 


<Button Height="23" HorizontalAlignment="Right" 
Margin="0, 59, 35,0" 


Name="Buttonl" VerticalAlignment="Top" 


Width="75">Submit</Button> 
تقر ۴5 لتفيذ التطبيق:‎ 


4 عناصر تحکم ۷۴۴ الشائعة 
في هذا الق م نتناول عدد من عنا صر التح کم الخا صة بواجھات P۴‏ الاک ثر 
استخداما. يساعد W۴‏ كما قدمنا في إنشاء واجهات استخدام محسنة الشكل» وحتى عناصر 
التحكم التي استخدمت من قبل في التطبيقات التقليدية يمكن تحسين مظهر ها في W۷۲۴‏ . 
الطريقة الأبسط لإضافة عناصر التحکم إلى واجهات W۷۲۴‏ هو عن طريق سحبها 
ورميها من ×0 ط1٥٠"‏ إلى النماذج كما قمنا في التدريبات السابقةء و في هذه الحالة تظهر 
عناصر التحكم في صورتها التفليدية. كما يمكن للمبرمج تغيير مظهر هذه العناصر من خلال 
تغيير خصائصها سواء من نافذة الخصائص أو من محرر [ا۸M×'.‏ 
1. تدریب: إضافة عنصر تحکم لتطبیق ۷۴۴ وربطه بالتعلیمات 


.New Project ةذفlill‎ جتiiî‎ .New Project رlتخİ‎ File ةnئأlã 01.من‎ 


2تأکد ان إصدار ه N81 ۴۲۵۳۷ ٥۲)۰‏ المستخدمة هي على الأقل الثالثة. 


تنصح M0‏ المبرمجین باستخدام البرنامج Micro) 8|۵٣۵‏ لتطویر وسوم ۸1× للحصول على مظھر جذاب 
لعناصر التحكم» حيث أن تطوير الوسوم في 2008 7 Visual Studio.NE‏ يعتبر صeبÎ‏ مقlرiة‏ ڊ¬ .Microsoft Blend‏ 
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.WPF Applications رlتèİÎ‎ Templates ja.203 

4.في الخانة 4٥٠‏ أكتب اسم التطبيق الذي ترغب في إنشاءه أو دع التسمية التلقائية 
.wpfApplication1‏ 

5.أنقر المفتاح )0. 

6 .قم بسحب 1٥×80×‏ من ال ×0ط1١٠۲‏ ثم أرميه فوق نافذة التطبيق . 

7-.أنقر فوق ۲٥۴×80×‏ لتختاره. 

8.أضبط خصائص عنصر التحكم 1١×80×‏ لتوافق الجدول التالي: 


VerticalAlignment 


اضف ١٥)tںB‏ إلى واجهة WPF‏ . 


<Button Height="23" HorizontalAlignment="Right" 
MaEFGIRETO, SI, 357 OT 


Name="Buttonl" VerticalAlignment="Top" 


WIQAERSTT75S"SAGASZBUEEORS 
.WP۴ أضف ×18B0ءا1 إلى واجھة‎ 


أضف التعليمات التالية للحدث. 


If TextBoxl1.Text IsNot "" Then 
LILISEBOxXL.Ttems Add (TextBox1 Text) 


TextBoxl.Text = "" 
ENQd: TÊ 


فوق المفتاح ۸۵4 لإضافته إلى القائمة. 
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12 قائمة بعناصر تحكp WPF‏ 


فيما يلي قائمة بأهم عناصر تحکم ۷۴۴ ووظائفها. 


FE ETE 
يعرض إطار حول المحتويات‎ System. Windows.Controls. Border 
مفتاح‎ System. Windows.Controls. Button 


System. Windows.Controls.CheckBox‏ صندوق تاشیر 
System. Windows.Controls.ComboBox‏ صندوق قائمة مدمجة 


System. Windows.Controls.Grid‏ منطقة الشبكة التي يضيف فوقها 
المستخدم عناصر التحكم 

System. Windows.Controls.I[mage‏ يعرض صور 

System. Windows.Controls. Label‏ عرض العناوین وإع ط12 


System. Windows.Controls. ListBox‏ صندوق قائمة 
System. Windows.Controls.RadioButto‏ مفتاح رادیو 


n 
يسمح بتنفيذ تبيوبات عدة‎ System. Windows.Control. TabControl 
صندوق النصوص‎ System. Windows.Controls. TextBox 


5 آنشاء معالج حدث لعناصر تحکم WPF‏ 

في هذا القسم نتناول التعامل مع معالج أحداث ۴ye Hھہ der‏ عناصر التدکم 
WPF‏ . 

يتشا به أنشاء معالج الحدث لعنا صر تح کم ۷۲۴ مع أنشاء معالج حدث عناصر 
التح كم التقليد ية. كن الذي یتم یز به أنشاء معالج الحدث لعنا صر تد کم P۴‏ هو أمكان 
الدمج بين تعليمات ›iوج8‏ ںو۷1 ووسوم ۸١۷1‏ لتصميم معالج الحدث. ويتم ذلك بان 
يضاف أ سم الحدث والطري قة المس تخدمة لخص ائص عنص ر الت کم ك ما تبدو في و سوم 
1× تم إضافة التعليمات باستخدام محرر التعليمات. 
1. تدريب: أنشاء معالج حدث لعنصر تحكم من النوع 8u)‏ 
209.من lãئnة .New Project ةذفlill جتiî .New Project رlتخİ File‏ 
0.تأکد ان إصداره 0۲)۰ ۴۲۵۳۷ N81‏ المستخدمة هي على الأقل الثالثة. 
.WPF Applications رlتaخİi Templates j.211‏ 
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2.في الخانة ٥٠‏ أكتب اسم التطبيق الذي ترغب في إنشاءه أو دع التسمية التلقائية 
.wpfApplication1‏ 

3.أنقر المفتاح )0. 

.WP۴ إلى واجھة‎ Bu ٤)٥١ 214.أضف‎ 

5.أنقر مرتین فوق ۸1٥0))اں‌8.‏ 

6 .أضف التعليمات التالية: 


MsgBox ("Event handler was created by double-clicking 
Lhe: BUEEORS™) 


7 .اضف ١٥ااں8‏ ثاني إلى واجھة ۷۴۴ . 
8.قم بتغيير وسوم ۸1× الخاصة بالمفتاح 80١2‏ لتصبح كالتالي: 


<Button Height="23" Margin="67, 96,136, 0" 


Name="Button2" 


VerticalAlignment="Top" 


Click="BuUEEORNOKCILEKSd"SButtEon</ButtEon> 
هو اسم معالج الحدث الذي‎ Button, 0K€ا1ic)ke4 حيث )م11 أ سم الحدث و‎ 


سوف نقوم بتصميمه. 


أنتقل إلى محرر التعليمات وأضف التعليمات التالية عقب Class Window1‏ 


Sub ButtonOKClicked (ByVal Sender As Object, _ 


ByVal e As RoutedEventArgs) 
MsgBox ("Event handler was created manually.") 


End Sub 
. أنقر ۴5 لتنفيذ التطبيق‎ 
للرسم‎ ۷ P۴ اآنشاء تطبیق‎ 6 


سنتعلم في هذا الق م الخطوات اللاز مة لإنشاء ڌ طبیق ۷۲۴ يس اعد في ر سم 
الصور. 
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.New Project ةذفlill‎ جتiiî‎ .New Project رlتخİ‎ File ةnئlã 219.من‎ 
المستخدمة هي على الأقل الثالثة.‎ N81 ۴۲۵۳۷0۲) ۰ 0.تأکد ان إصداره‎ 
.WPF Applications رlتaخİi‎ Templates jn.221 

2.في الخانة "4٣٠‏ أكتب اسم التطبيق 4ج۴ ہ!آ. 

3.أنقر المفتاح )0. 

4.انقر فوق النافذة 1س ۷1,0 لتختارها. 

5.في نافذة الخصائص قم بضبط خصائص ۷1,40۷1 لتصبح. 


الضبط 


[الخاصية ا 
Height‏ 


Heieht 


أذ قر مفتاح الفارة اليم ين فوق أي مكان فوق ال ×0ط1٥٠1‏ لتظ هر القادٌ مة 


الخاضة 


المنسدلة الخاصة به والمبينة في شكل 5-45. 
أختار 1)6١‏ مو00طC‏ لتظهر النافذة المبينة في شكل 5-46. 
انقر فوق llتبويب .WPF Components‏ 
أبحث pû InkCanyas jz‏ أنقر على المربع المقابل له. 


اذقر المفتاح 0K‏ لتظ ھر آیقو نة 28ص2٣‏ kم!]‏ في ال ×oەbط01٥1‏ کما ھو 
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Paste 


Fe" 
[| List View 


Show All 


Sort Items Alphabetically 
Reset Toolbox 
Add Tab 
Delete Tab 


Rename Tab 


Mowe Down 


Choose [ems رقiأ‎ :45-5 شكل‎ 


Choose Toolbox Items EE 


ٍ COM Lomponents | WPF Components | Activities | 


Name amespace Assembly Name Directory 
AczessDataSourze System.Web. 1l. Weblo... System. wyeb (2.0... Global 4S8... 
AcîonsPaneê icrosoft. Office, Tools Microsoft. Office. To... Global 4S5... 
AcîonsPane icrosoft. Office, Tools Microsoft. Office, To... Global A488... 
Activity stem. workflow. Comp... System. wworkflow,,,,. Global Ass... 
ADODZ icrosoft, WisuualBasic. Ca... Microsoft. YisualBas... Global 45s... 
ADODZArray izrasoft, VISLIAlBaASÎL. ZA...  Mcrosok.YisualBaS... Global ASS... 
AdomdZommand Wicrosoft.AnalysisService,,.. Micrasoft.Analysis,..,. Global Ass... 
AdomdZonneciüon icrosoft.AnalysisService,,.. Microsoft.Analysis..,. Global Ass... 
AdomdDataAdap... Wicrosoft.AnalysisService,,.,. Microsoft.AnalysiS..,. Global Ass... 
4 ARotabtor System, Yeb. UI.Mobilel... System. yeb. Mobi... Global Ass... E 
Î AdR.otator System. Web Ul. WebCa,.,. System, WYeb (2.0... Global Ass... ا‎ 


ا ا ا ا 


Filter: 


AccessDataSoluIrcê 


lb Language: Invariant Language [Invariant Country) 


Yersion: ل200‎ 


Ok Cancel Reset 


Choose Toolbox Items ةذli‎ :46-5 شكل‎ 
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wWwrapPanel 


BE) 


= General 
InkCanvas شكل 47-5: يقن‎ 


قم بسحب ال ك۷2صة٣kم!‏ من ×0ط01٥1‏ ورميها فوق النافذة. 


مس تخدما نافذة ]٤1٥5‏ 6م٥۴۲‏ قم بض بط خص ائص ٣2۸۷48‏ Kم]‏ لتص بح 


قم بإضا فة مفتاح ین ت حت ٣۵۸۷2۶‏ )م! أج عل ۸1٥٤اںط‏ إلى الي ار و 


Bıtt02‏ علی الیمین. 


غير خصائص 81(01١1‏ مستخدماً محرر XAML‏ لتصبح كالتالي: 


<Button Height="23" HorizontalAlignment="Left" 
Margin="85, 0,0,24" 


Name="Buttonl" VerticalAlignment="Bottom" 


Width="75">Clear</Button> 
لتصبح كالتالي:‎ XAML غير خصائص 81012 مستخدماً محرر‎ 


<Button Height="23" HorizontalAlignment="Right" 
Margin="0, 0, 72,24" 


Name="Button2" VerticalAlignment="Bottom" 


Width="75">Clöse</BUEtOonN> 
وأضف التعليمات التالية إلى الحدث‎ ٣1٥4۲ أنقر مرتين فوق المفتاح‎ 


Me.InkCanvas1.Strokes.Clear () 


أنقر مرتين فوق المفتاح ٣1٥5٥‏ وأضف التعليمات التالية إلى الحدث 
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Me.Close ()‏ 
أنقر المفتاح ۳5 لتنفيذ البرنامج. 
مستخدما مؤ شر الفأرة قم بالر سم فوق وھ مه٣‏ )م] وإذا أحسست أن الر سم غير 
قم بنقر مفتاح هم1٥‏ و عندما تنتهي أنقر موه1ا٤.‏ 
FT O‏ 


شكل 48-5: التطبيق ۴۸Q‏ م!] أثناء التشغيل. 
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معالجة الأخطاء 


عندما تقوم بكتابة برنامج حاسوب» فإن وقوع الأخطاء من الأمور الواردة. يمكن أن 
تقوم بكتا بة ب عض العبارات بص ورة خاطئة لا يتوقع ها الحا سوب» أو أن تكون هناك أخطاء 
مخفية تتسبب في توقف البرنامج» أو الأسواً تتسبب في أن يقوم البرنامج بتقديم نتائج خاطئة. 
عند ما يكون برنامجك يحتوي على أخطاء يجب عليك العثور على هذه الأخطاء ومعالجتهاء 
هذه العملية التي يطلق عليها أسم إزالة الأخطاء عمنععuطء5.‏ 
7 البحث عن الأخطاء 

فيما يلي» سنتعلم كيف نقوم بعملية إصلاح البرنامج من خلال إزالة الأخطاء. 

بغض الذظر عن الطريقة التي قمت بها بتصميم برنام جك أو كتا بة شفر تهء فإن 
الأخطاء من الأمور الواردة. بعض الأخطاء تمنع البرنامج من أن يبدأ بعضها الأخر يتسبب 
في انهيار طوهعء البرنامج وأسوء من هذا كله أن يعمل البرنامج ولكن يعطي نتائج خاطئة. 

بالطبع عندما تقع الأخطاءء فمن الضروري أن تعثر عليها وتقوم بإصلاحها. يطلق 
على أخطاء البرا مج عا مة الا سم عںط ك ما يطلق على عملية إزالة هذه الأخطاء الا سم 
.debugging‏ 

عملية إزالة الأخطاء هي عملية تكرار ية ماهم[ فذهي عملية ستقوم بتكرار ها 
مرة ب عد مرة أثناء عمل ية البرم جة. فعند ما تكوم بكتا بة جزء من الشفرة ستقوم باختبار 
البرنامج» إذا حدث خطأ ستقوم بالبحث عنه وإصلاحه ثم تقوم بتشغيل البرنامج مرة أخرى» 
وتتكرر هذه العملية كل مرة تجد فيها خطا. 

في مع ظم الحالات لن تر غب في إيقاف تنذ يذ البرنا مج لتقوم بالب حث عن الخ طأً 
وإصلاحه. بل ربما كان الأفضل أن تقوم بالعثور على الخطأً وقت ظهوره ومعالجته ثم تدع 
البرنا مج يستمر في التشغيل و هي العمل ية التي تس مى التحد يث والا ستمرار لمج ٣di)‏ 


.Continue 
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تقوم بيئة التطو ير المتكاملة 1 1(۴ Visual] Basic - Visua] Basic‏ - بعمل 
عمليات إزالة الأخطاءء» حيث تحتوي على العديد من الأوامر والنوافذ التي تستخدم في البحث 
عن الأخطاء. هذه العناصر التي سنتناولها في أجزاء هذا القسم. 
1 تدریب: استخدام خlصڍة Edit & Continue‏ 


المتال الذي سوف نعر ضه في ما يلي يتض من ما يس می بالا ستثناء 101۸امexcep.‏ 
الاستثناءات هي كائنات يتم إنشاءها عندما يشعر البرنامج بأن هناك خطاً قد وقع في التشغيل. 


نفس ه. في الو ضع العادي» إذا حدث أي |١‏ ستثناء يظ هر صندوق حوار ليو ضح نوع الخ طأً 
ويساعد في إصلاحه. 


6. من القاد م ۴1٥‏ أذ قر فوق New Prec‏ من نافذة eetزەPr New‏ أختار 
Windows Application lei Template‏ تم أنقر المفتاح .0k‏ 
أنقر مرتين فوق النموذج ليظهر ال .Code Editor‏ 
قم بكتابة الشفرة التالية في عامل الحدث 024ا :۴٥۲٣‏ 


Dim number As Integer = 1 


Dim numbers As String = "" 


MsgBox (numbers + 1)‏ 
أضرب المفتاح ۴5 لتشغيل البرنامج. هذا البرنامج سوف يتعطل وتظهر نافذة 
"ypographica1 error‏ حيت قام المبرمج بكتابة المتغير النصي ك؟۲ع اام محل 


المتغير الى حیح nme‏ داخل وظیفة .MsgBox‏ لاحظ أن البرنامج لم ينقطع عن 
العمل» فقط هو توقف عن العمل منتظرا أن تقوم بإصلاح الخطأ وهو ما يمثل خاصية 


.Edit and Continue 


.number+1 ب‎ numbers+1 JIدڊڌwlڊ‎ pê Code Editor ةذفli في‎ 


أضرب ۴5 ليستمر البرنامج في العمل. 
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ù InvalidCastException was unhandled * 
Coanyersion fram string "" to type 'Dauble' is nat ¥alid, 


Troubleshooting tips: 
heck Ee FEORETEY FHI 


When casting Fram a number, the Yale must be a number less thar infinity, | 
Make sure the source bype is convertible to the destination type, 2 
tet general help For this exception, 


tek general help for the inner exception, 


Search For more Help Gnlinë,.. 


Actions: 
Yiew Detail... 


Lopy exception detail to the clipboard 
شكل 49-6: نافذة الاستثناء‎ 

8. آنواع الأخطاء 

فيما يلي نتعرف على أنواع الأخطاء التي تحدث عن كتابة البرامج. 

حتى هؤلاء المبرمجين المحترفين يقومون بالأخطاء» لكذهم يعرفون كيف يتعرفون 
على أخطاء هم وكيف يمكذهم إزالتها. أنهم ينظرون إلى الأخطاء كجزء من عملية البرمجة. 
قبل أن نقوم بتعلم كيف نقوم بعملية إزالة الأخطاء ععع uطاءل‏ سيكون من الأفيد أن نتعرف 
على أنواع الأخطاء الممكن وقوعها. 
Error‏ ationاCompi‏ و أخطاء التشغیل Run-)1me ٤0۲‏ والأخطاء المنطقية نع0[ 


„Error 


Compilation Errors gıaجتll‎ ءlطخİ1.38.1‎ 

أخطاء التجميع - والتي يطلق عليھا أيضا اسم Îخطlء‏ ازnجga Compiler Error‏ - 
هي تلك الأخطاء التي تمنع برنامج من العمل. عندما تقوم بضرب المفتاح ۴5 يقوم إهuئ¡۷‏ 
بتجميع شفرة برنامج إلى اللغة الثنائية معحمںعمة رإهم1ط التي يفهما الحاسوب. 
لو أن مجمع عإوه8 اهuو۷‏ صادف شفرة لا يعرفها فإنه يقع في خطأ التجميع ومن تم 
يتوقف عن تجميع البرنامج وبالتالي لا يعمل البرنامج. 

مع ظم أخطاء البرم جة د قع نتي جة أخطاء في كتا بة الشفرة. م ثل أن يقوم ال مبرمج 
بكتا بة أي من الكلمات المحجوزة بطر قة خاطئة أو ينس ى و ضع علامات التنص يص أو 
علامات الفاصلة أو مثلا كتابة 1۴ ل۴ بدون كتابة 1۴ قبلها. 
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من حسن الحظ› أن sua Basic‏ مصمم بحیث يکتشف معظم هذه الأخطاء أثناء 
Î1.38.2خþطاlء‏ llتJıi Run-time Errors‏ 

أخطاء التشغيل - كما هو واضح من أسمها - تحدث أثناء تشغيل البرنامج. وعادة ما 
يكون سبب هذه الأخطاء العمليات التي لا يمكن للحاسوب أن يقوم بها. من أكثر هذه العمليات 
التي تسبب أخطاء التشغيل شيو عا هو القسمة على الصفر. 

عند وقوع مثل هذا النوع من الأخطاء يمكن» يمكنك استخدام أدوات إزالة الأخطاء 


التي تقدمھا 1cیBa‏ 1ھ ںی]۷ حتی یتسنی أن تعثر على هذه الأخطاء وتقوم بمعالجتها. 


Logic Error 1الأخطاء المنطقية‎ 3 

الأخطاء المنطةية هي أكثر أنواع أخطاء البرم جة خطراء فهذه الأخطاء ينشاً عذها 
خ طا في سريان البيانات دا خل البرنا مج و من ثم ظهور نتائج خاطئة غ ير متوة عة عن 
العلميات التي يقوم بها الحاسوب. ومن جانب آخر هي بمثابة أخطاء خفية بحيث يصعب على 
أدوات إزالة الأخطاء في عإوه8 1٠و۷‏ التعرف عليها. ومن ثم فإن هناك عامل كبير على 
المبرمج في مراجعة برنامجه ليتعرف على مكان الخطأ المنطقي. 


9العثور على أخطاء التجميع وإصلاحها 
فيما يلي نتعلم كيفية العثور على أخطاء التجميع وإصلاحها. 


كما تعلمنا فيما سبق أن أخطاء التجميع تنشاً عن وجود شفرة غير مفهو مة بالنسبة 
لمجمع وج8 1هuو۷.‏ ولأن هذا النوع من الأخطاء يعوق البرنامج عن بدأ التشغيل» فمن 
الأفضل العثور على هذه الأخطاء وعلاجها قبل الشروع في تشغيل البرنامج. 

العثور على هذا النوع من الأخطاء لحسن الحظ بسيط. عند ما تضرب المفتاح ۴5 
ويتعثر المجمع في أي من هذه الأخطاءء تظهر على الشاشة صندوق حواري يحمل العبارة 
"here were build errors. Continue‏ إذا اخترت وم۲ فإنه سوف یتم تشغیل آخر 
نسخة من برنامج قبل أن تقوم بكتابة الشفرة الخاطئةء أما إذا اخترت 0× فإن البرنامج سوف 
يتوقف عن العمل وتظهر liفذة .Error List‏ 
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نافذة ٤یز ۴۲٣۵0۲‏ تقوم بعرض معلومات حول أخطاء التجميع» تضم هذه النافذة 
المبينة في الشدكل اللاحق وصف الخطأ وموقعه من الشفرة. لو نقرت نقرآ مزدوجا فوق أي 
من الأخطاء المبينة في نافذة وز إهإ]8 فإن السطر الذي يحتوي على الخطأ يتم تظليله. 
یمک نك ضرب المفتاح ۴1 لی تم عرض وٹثائق |اlئمıد‏ |عدذö Help Documentation‏ 1 - 
Vu si‏ للتعرف على معلومات أكثر حول الخطأ وكيفية إصلاحه. 


Rx 


Ê immediate Winda | KJ Error List 


شكل 50-6: ذذ Error List‏ 
وعادة ما يقوم محرر الشفرة ن Visual Basic — Visual Basic Code Editor‏ 
- بتعيين قسدم كبير من أخطاء التجميع أثناء تحر ير شفرة البرنامج من خلال الخاصية 
المسماة عور م؟111مم[. فعندما تقوم بكتابة أي كلمة من الكلمات المحجوزة أو الوظائف أو 
بارامترات الوظائف يقوم ال - مو 11156عم] بإظهار قاد مة تحتوي على جم يع الكلمات 
المحجوزة أو الوظائف أو بارامترات الوظائف المشابهة لتنتقي منها ما يناسبك استخدامك. 


1. تدريب: العثور على أخطاء التجميع وإصلاحها 
7. من القاد مة ۴1٥‏ أذ قر فوق New Prec‏ من نافذة eetزەPr New‏ أختار 
Windows Application lie Template‏ تم أنقر المفتاح .0k‏ 
أنقر مرتين فوق النموذج ليظهر ال .Code Editor‏ 
قم بكتابة الشفرة التالية في عامل الحدث 024 :۴٥۲۳٣_‏ 


End: TE 
. ٤٥d 1۴ یظھر خط ازرق متمو ج تحت العبار ة‎ ۴٥٤٥۲ عندما تضرب المفتاح‎ 


قم بتغییر هذه الشفرة لتصبح كما الآتي 


TE 1 < 2 Then 
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تلاحظ أن الخط الأزرق المتموج اختفى. قم بإضافة الشفرة التالية بعد بين 1۴ 
و .End If‏ 


MgBox ("Hello") 
There were build errors. Would ةرlبعll تظر‎ .F5 أضرب المفتاح‎ 


?you like to continue and run the last successful build 

Name 'MgBox' is تبين أن الخطÎ ھر‎ ۴۲۲٥۲ تظهر نافذة ئا‎ ×٥ أختار‎ 
.not declared 

أذ قر نقرأً مزدوجا فوق الخ طأً ثم قم بتعد يل العبارة الخاطئة لتص بح 
.(MsgBox(" Hello‏ 


أضرب المفتاح ۴5 مرة أخرى وأنظر هل يعمل البرنامج. 


0.العثور على أخطاء التشغيل وإصلاحها 

فيما يلي نتعلم كيف يمكن أن نعثر على أخطاء التشغيل ونقوم بإصلاحها. 

كما تعلمنا سابقا أن أخطاء التشغيل تنجم عن عمليات غير مسموح بها. عند وقوع أي 
من هذه الأخطاء يتو قف البرنامج عن العمل وتظهر ر سالة خطأً حتى يمكنك التعرف على 
وقوع خطأ تشغيل وتقوم بإصلاحه. 

مع ظم الأخطاء التشغيل ية ت قع نتي جة لخ طأً في الشفرة نفس هاء كأن تنس ى أن تقوم 


بتخصيص قيمة لمتغير قبل أن تقوم باستخدامه. عند تشغيل برنامج ووقوع أخطاء تشغيل» 


sistant‏ في نافذة إهال٤‏ م0٥0.‏ عند ما يحدث هذا فإن البرنامج يد خل حالة تسد مى 
Mod‏ kهعBr‏ حيت يمكنك أن تقوم بعمليات إزالة الأخطاء. 


صندوق الحوار مس اعد الا ستثناء ٤s¡sta1ىA‏ ۸٥1امe‌E×xc‏ يحتوي علی و صف 
للخطأً ونصائح حول سبب وقوع الخطا. بالذقر على هذه النافذة تظهر وتائق المساعدة التي 
تحتوي على المزيد من التعليمات القيمة. 
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1. تريب: العثور على أخطاء التشغيل وإصلاحها 
28. من القاد مة ۴11٥‏ أذ قر فوق »New Prec‏ من نافذة New Project‏ أختار 


.0k تم أنقر المفتاح‎ Windows Application lei Template 
.Code Editor أنقر مرتين فوق النموذج ليظهر ال‎ 


قم بكتابة الشفرة التالية في عامل الحدٿث 024 :۴٥۲۳٣‏ 


Dim miles As Integer = 0 
Dim hours As Integer = 0 
Dim speed As Integer = 0 
miles = 55 


speed = miles / hours 


MsgBox (CStr (speed) & " miles per hour") 
أضرب المفتاح ۴5 لتنذ يذ البرنا مج. تظ هر النافذة مس اعد الا ستثناء‎ 


Overflow Exception was ãllw رll‎ Ja تد‎ Exception Assistant 
ک ما يظ هر خط متة طع ير بط ما ب ين النافذة مس اعد الا ستثناء‎ unhandا‎ 1 
ومکان الخطاً من البرنامج.‎ Exception Assistant 

ضع مو شر الفأرة فوق المتغ ير كهاام وأتر كه لثواني سوف تظ هر نافذة 
صفراء صغيرة - نافذة النصح W1 ١10W‏ م1 1ا0 - تحمل فقط 55 وعااص. 

كرر ذ فس الخطوة ٥‏ مع استبدال كعانص ب س كإuهط‏ تلا حظ أن الر سالة 
أصبحت 0 إاهط. وحيث أن القسمة على صفر غير معترف فيها في الكومبيوتر فإن 
الخطأً تولد هنا. 

أضف السطر التالي بعد سطر 55 = ءعإذص: 


hours = 2 


أعد تنفيذ البرنامج وأنظر إن كان سوف يعمل أم لا. 
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1.استخدام النفذة الط Intermediate Window‏ 

في هذا القسد م نس تكشف إمكانات اختبار التعليمات با ستخدام النافذة الو سيطة 
.[ntermediate Window‏ ففي القسم السابق عرفنا كيف يمكن الاستدلال على الأخطاء 
الوا ضح أ ين الخ طأ ويس تحيل على ال مبرمج أن يعرف مكان الخ طأ بدون أن يقوم بتعد يل 
التعليمات. في هذه الحالة تكون الأداة المثلى لمعال جة الأخطاء هي النافذة الو سيطة 


.Intermediate Window 
عندما يكون البرنامج في ال ءلهM )هع 8 فإن النافذة الو سيطة يمكن ان تستخدم‎ 
لتنذيذ قسم من التعليمات وتقييم المتغيرات والتعبيرات. على سبيل المثال» إذا تولد خطأً في‎ 

أثناء التشغيل ع ٠1ا-‏ من بسبب متغير فارغ (لم تخصص له قيمة)» فإن المبرمج ير يد أن 
يتعرف على قيمة المتغير› وهو ما تسمح به النافذة الو سيطةء كما تسمح بتغيير قيمة المتغير 
واختبار كيف سيكون سلوك بقية البرنامج بناء على هذا التغيير. 
كما يمكن للمبرمج تعديل الت لتعليمات في النافذة الو د سيطة بنفس الطريقة التي د بستخدمها 
في نافذة تحرير التعليمات إهزل8 م04]. ولتقييم التعبيرات أو المتغيرات» يمكن للمستخدم 
أن يقوم بكتابة علامة استفهام (؟) متبو عة بالمتغير أو بالتعبير المطلوب تقييمه» تم يضرب 
المفتاح إم)"8 من لوحة المفاتيح لتظهر النتيجة في السطر اللاحق. 
في التدريب التالي نتعرف كيف يمكن اختبار التعليمات باستخدام النافذة الوسيطة. 
1.. تدريب: اختبار التعليمات في النافذة الوسيطة 
9. من القاد م ۴1٥‏ أذ قر فوق اecز٥r°P New‏ من نافذة ٤eeزەPr New‏ أختار 
Windows Application lie Template‏ تم أنقر المفتاح .0k‏ 
من النوع Button‏ ثم أرميهم علی النموذج. 
1.أذ قر مرڌ ين فوق المفتاح لت تح محرر التعليمات على معالج الحدث 
.Button Click‏ 


2.أضف التعليمات التالية: 
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0 


Dim miles As Integer 


Dim hours As Integer = 0 


Dim speed As Integer = 0 


mMLLEeS = CINE (TextEboxXl.. TEX) 


ت 


hours = CInt (Textbox2.Text 
speed = miles / hours 


MsgBox (CStr (speed) & " miles per hour") 
في صندوق النص الأول‎ ٠٠١ أضرب المفتاح ۴5 لتنذيذ البرنا مج. أد خل القيمة‎ 
والقيمة 8 في صندوق النص الثاني.‎ 


Overflow Exception was " عوill‎ ja İطþخ‎ ãllw ر‎ ga Exception Assistant 
" unhandled 
في النافذة الوسيطة تحت بيئة التطوير المتكاملة 15۴ - أنظر شكل 6-51 - اكتب ؟‎ 
في السطر اللاحق.‎ ٠٠١ اص ثم أضرب المفتاح إم†8E› تظهر القيمة‎ 
في السطر اللاحق.‎ ٠ أكتب ؟ءإںهط ثم أضرب المفتاح إم)م. تظهر القيمة‎ 
Eہtع١ آک تب 4=یإںمط تم أضرب المفتاح ۲مہ 8ء تم اكتب ؟وہuمط وضرب‎ 
طهuإو وبهذه الطريقة قد قمنا بتغيير قيمة‎ .٤ ثانية. تلاحظ أن قيمة مط أصبحت‎ 
بدون أن نغير البرنامج الأصلي.‎ 
أضرب المفتاح ۴5 ليتم استكمال البرنامج وتظهر النتيجة في الرسالة.‎ 
immediate Wirdow ا‎ <4 2 


Thours 
4 


شكل 51-6: النافذة الوسيطة 
2. كشف الأخطاء المنطقية 


يتو فر في یه8 [هںو]۷ أداتڌين لاستكشاف الأخطاء هما ال- يtمiھمBreak‏ او 
نقاط الإيقاف» والتشغيل خطوة بخطورة عماممع)اك. 
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يم كن لا مبرمج أن يقوم بإضا فة نة طة تو قف امزمم )هه٥8‏ ع ند أي سطر من 
التعليمات» وع ند تنذ يذ البرنا مج» يتو قف التنذ يذ عند نة طة التو قف» وين قل العمل إلى بيئة 
التطوير المتكاملة 15۴ في وضعية الإيقاف مءلهM١‏ )ه٥81‏ حيث يمكن للمبرمج التعرف 
على أي معلومات خاصة بالبرنامج لحظة توقفه. فيمكن التعرف على قيمة متغير أو اختبار 
ت عبير في النافذة الو سيطة ك ما تقدم» أو تعد يل التعلیمات با ستخدام خا صية لصھ Edi)‏ 
.Continue‏ 

بمجرد انتقال البرنا مج إلى وضع ية إيقاف يم كن لا مبرمج تنفيذه خطوة بخطوة لي تم 
تنفيذ سطر من التعليمات ثم السطر التالي وهكذاء وذلك بضرب المفتاح ۴7 في لوحة المفاتيح 
ليتم تنفيذ السطر تم ضرب نفس المفتاح مرة أخرى لتنفيذ السطر التالي وهكذا. 

إذا كان الس طر يحتوي على وظي فة «0ناءموں۴ أو إجراء فر عي Sub‏ 
Procedure‏ فإ نه ع ند الذ قر على ۴8 ي تم الانتقال إلى دا خل هذه الوظي فة أو الإجراء 
الفرعي. وعند انتهاء تعليمات الوظيفة أو الإجراء الفرعي يعود التنفيذ إلى البرنامج الرئيسي. 
ك مايم كن لا مبرمج أن يتفادى الدخول إلى دا خل الإجراء وذلك عن طر يق أن يضرب 
المفتاحین SH1۴۲+۴8‏ معاً. 


11 تدریب: اکتشاف خطأ منطقي 

3. من القادمة ٣1٥‏ أذقر فوق New Prec‏ من نافذة New Pre‏ أختار 
Windows Application lei Template‏ تم أنقر المفتاح .0k‏ 

4.من صندوق الأدوات قم بسحب عنصر تحكم من النوع 1٥×80×‏ وعنصر تحكم 
من النو ع ١٤ا8‏ ثم أرميهم على النموذج. 

5. أذ قر مرڌ ين فوق المفتاح لتذ تح محرر التعليمات على معالج الحدث 
.Button Click‏ 

6.أضف التعليمات التالية: 


Dim minutes As Integer = CInt (Textbox1.Text) 


Dim miles AS Doüblé = CDb1 (TexEbOoOxX2. Tex) 


Dim Hours As Doublêe = 0 
hours = MminütêésS. 7 60 
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MsgBox ("Average speed " & GetMPH (hours, miles) ) 
أضف تعليمات لعمل هذه الو ظيفة:‎ 


Function GetMPH (ByVal miles As Double, ByVal hours As 
Double) _ 


As String 
GetMPH = CStr (miles / hours) 


End Function 
° و‎ ]٥×80×1 في عنصر التحكم‎ ٠١ أضرب المفتاح ۳5 لتنفيذ البرنامج» أكتب‎ 
A۸۷۵۲2 في عنصر التحكم 0×2 ۰1×8 ثم اضرب المفتاح ۸1٥)ں8. لتظهر الر سالة "عع‎ 
ميل في الساعة. وهذا يدل‎ ٠١ إ(4ءعمء" بالر غم من الإجابة الصحيحة هي‎ 4 
على وقوع خطأ في منطق البرنامج.‎ 
تدريب: إضافة نقاط الإيقاف إلى تعليمات البرنامج‎ 2 


أنتقل إلى محرر التعليمات» »ابحث عن السطر الذي يحتوي التعبير = كاuا0ط‏ 
ius / 0‏ وأنقر بمؤشر الفأرة فوقه تم اضرب المفتاح ۴9 لإضافة نقطة إيقاف. 
السطر يتم تظليله باللون الأحمر القاتم علامة على وجود نقطة إيقاف. 

أضرب المفتاح ۴5 لتنذ يذ البرنا مج وأك تب ٠١‏ في صندوق ال نص الأول 
وخمسة في الصندوق الثاني» ثم أذقر المفتاح 0٥١1‏ 8. البرنامج يتو قف عند بلوغ 
نةطة الإيقاف ويصبح السدطر الذي يحتوي عليها مظللا باللون الأصفر. قف بمؤ شر 
الفأرة فوق المتغير كط تظهر لك ملحوظة ما بأن قيمة هذا المتغير هي ٠٠‏ كرر 
نفس الشئ بالنسبة للمتغير ١عا‏ ا٣ا"‏ لتحصل على القيمة .٠١‏ 

أضرب المفتاح ۴8 لتنذ يذ الس طر الذي يحتوي على الد عبير = كاإuا0ط‏ 
0 / كع nutنصوالانتقال‏ إلى السطر الذي يليه وتحقق بذفس الطريقة السابقة من قيم 
المتغيرات في llئeبڼرةö MsgBox("Average speed " & GetMPH(hours,‏ 
م) حيث من المفترض أن تكون قيمة كإامط هي ٠.٠١١٦177۷١‏ وقيمة 


1ص هي 0.°. 
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أضرب المفتاح ۴8 لتنذ يذ الس طر التالي» لا حظ أن التتذ يذ أن قل إلى دا خل 
الوظي فة ۴8ء6 قم بالتعرف على قي مة المتغيرات تلا حظ أن المتغ ير كعإنص 
أصبحت قيمته ٠.٠١٦٦٦٦٦۷1‏ بينما أصبحت قيمة المتغير ا0ط هي 5.0 أي أنه 
حدث خطأً في تخصيص قيم المدخلات وهكذا تولد الخطأً المنطقي. 

3 تدريب: علاج الخطأ المنطقي 

قم بتعديل هذا السطر ليصبح في الصورة 

MsgBox ("Average speed " & GetMPH (hours, miles) ) 

قم بإزالة نقطة الإيقاف وذلك بأن تذقل مؤشر الفأرة للسطر الذي يحتوي على 


نقطة الإيقاف وأضرب المفتاح ۴9. 
أعد تشغيل البرنامج وأختبر نتائجه. 


Comments ٽاقيفطتİll1.43‎ 

التعليقات هي سطور يضيفها المبرمج ليبين لنفسه أو لشركائه في تطوير التطبيق ما 
الذي يجب أن تختزنه المتغيرات من بيانات والعمليات التي تنفذها تعليمات البرنامج المختلفة. 
وأهمية التعليقات أنها تجعل البرنامج مفهوم بالنسبة للمطور أو المطورين الآخرين مما يسهل 
مهامهم التطويرية. ويعتبر أي سطر يبدأ برمز الفاصلة العالية “ هو بمثابة تعليق لا يلتفت إليه 
البرنامج عند التنفيذ بينما يقوم محرر التعليمات بعرضه باللون الأخضر الفاتح دلالة على أن 
هذا السطر من التعليقات. 
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مقدمة إلى تطبيقات قواعد البيانات 


الغرض من إنشاء أي ت طبيق هو معال جة البيانات. في مع ظم الت طبيقات ال تي 
ا ستخدمناها كأمثلة في الفص ول السابقة كا نت البيانات تد خل يدويا ثم تختزن في متغيرات 
داخل البرنامج. لكن في كذير من التطبيقات الحقيقية يتم اختزان البيانات في خار ج التطبيق 
في أشكال مختا فة مص ممة لاختزان البيانات. و ماأً هم هذه الأشكال قوا عد البيانات 
.Database‏ 
في هذا القسدم سوف نتعرض إلى تطوير تطبيقات قوا عد البيانات باستخدام إوuوئ¡۷‏ 
Basic. NE 8‏ مع مقدمة بسيطة إلى تقنية 4م11 التي تقدمها اÊهوهإء"‏ لأول مرة 
في 2008 Visual Studio‏ . 


4.قواعد البيانات Database‏ 

هذا القسد م ل يس الغرض م نه تقد يم قوا عد البيانات بص ورة تفص يليةء ول كن تقد يم 
مفاهيمها الأساسية حتى يمكن للدارس أن يفهم ما هو مطلوب منه بنهاية هذا القسم. 

تعرف قاعدة البيانات بأذ ها تجم يع لبيانات منظ مة لتمڌ يل ظاهرة ما. تتكون قاعدة 
البيانات من جداول وم1طه1 يمتل كل جدول منها جزء من الظاهرة» ويتكون كل جدول من 
حقول یل1٥۴1‏ (أو أعمدة یمصصںآه٤)‏ و سجلات ولإهء٥۸‏ (أو صفوف)؛ د یث تم ثل 
السجلات أو صاف العناصر المختافة التي يصفها الجدول» بيذما تمتل الحقل و صف محدد 
لجميع الحالات. وترتبط هذه الجداول بعلاقات بينها تماثل العلاقات في العالم الحقيقي. 

وسنضرب مثالا لتقريب أفكار قواعد البيانات للذهن» لنفترض أن هناك قاعدة بيانات 
الغرض مذ ها و صف مدر سة» إذا فالمدر سة هي الظاهرة المطلوب تمثيل ها. هناك أرب عة 
موضوعات أ ساسية ع ند و صف المدر سة هي المدر سون والطلاب والفص ول والمواد 
التعليم ية. كل موضوع من هذه المواض يع سيتم حذ ظه في جدول مس تقل. فمتلاً جدول 
المدر سون سيحتوي على أعمدة عن أ سم المدرس ودرج ته الوظية ية والمادة العلم ية التي 
يقدم ها. بيذما كل صف سيمثل سجل المدرس. كما أن هناك جدول سيمثل الطلاب. وآ خر 
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للفصول» ولأن كل فصل ينشغل بعدد من الطلاب» فإن هناك رابطة يجب إنشاءها لتبين مكان 
الطالب في أي فصل. 


غالبا ما يتم أنشاء قوا عد البيانات باستخدام برامج خاصة مثل وومپ۸ أو اSQ‏ 
Server‏ وبصورة مستقلة تماما عن i0لنا؟‏ اهuو۷1‏ تم يتم كتا بة التطبيقات التي تعمل 
بمثا بة واجهات | ستخدام لقوا عد البيانات با ستخدام »یه8 اوuء۷1.‏ وحيث أذنا لس نا في 
معرض الحديت عن برامج إدارة قواعد البيانات فإن 2008 Visua1 Stu»udi0.NN٤1‏ يتوفر 
م عه نس خه مخذ فة لبرنا مج إدارة قاعدة llبlنlٽ SQL Server Compact Version‏ 


لا ستخدامها في إنشاء قوا عد البيانات. و هو البرنا مج الذي سوف نقوم با ستخدامه في هذا 
القسم. 
1. آنشاء قاعدة البيانات 
.New Project jiëخİ File ja.237‏ 
من liذة .Windows Form Application رlتaخÎ New Project‏ 


الاسم التلقائي في الخانة N2‏ هو 1ca)10۸اWindowsApp‏ قم بتغییر ہ 
.DBApp JJ‏ 


من القائمة ٤ء٥‏ ز٥٣۴‏ أختر إ٠‏ سء" 4ل لتظهر النافذة المبينة في شكل 
7-52. 


أنقر فوJق Local Database‏ . 
في الخانة مه أكتب اسم قاعدة البیانات وهر 0(8)ء۴۲. 
أنقر لك ۸. 


تظ هر نافذة معllئج Data Source Configuration Wizard‏ المبذ ية في 
شکل 7-53 أختر .٤ance1‏ 
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تظ هر قاعدة البيانات الجديدة ۴1۲1(8 في نافذة orerاExp Solution‏ ک ما في 


شکل 7-54. 


8 


Ell Cancel 


Templates: E 
Yisual Studio installed templates 
= 8 A ® û @ 
ل ا‎ e 1 
About Box 5ا‎ lass Zade Fils COM Class Companant 3 
Diagram Class 
Er 1 8 
3 E ا‎ 8 3 
Lustam DataSet Dialog Explorer Interface JSrript File 
Control Form 
س کک‎ o 
3  @ 2 8 
۵ اک ا يا ل‎ 
LING to SQL Local Local Login Form MDI Parent Module 
Classes Database Databa.. Form 
3 E. E3 2 3 کے‎ 
7 س 8ا ك ا‎ 3 ٤ 
Roannrt Roarnnrt Rasnuırraz__Gprwira-h Snlash Te¥t Film اا‎ 


Add New Item - DBApp 


Lateqories: 


Lode 

Data 

General 

Web 

Windows Forms 
Reporting 

Work flor 

WPF 


About Box form for Windows For ms applications 


Add New Ife öذفان‎ :52-7 شكل‎ 


dboutBox1, yb 


Name: 
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Data Source Configuration Wizard 2 


Choose Your Database Objects 


which database objects do you want in your dataset? 


The database you selected is new or does not contain any objects, Click Finish to create an ampty dataset, 
nce database objects are added to the database open the empty dataset in the Dataset Designer ta 
reconfigure the dataset, 


DataSet name: 
FirstDBUata5et 


Mant = Finish Lancel 


Data Source Configuration Wizard öةذغli‎ :53-7 شكل‎ 
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Solution Explorer 
EAA LEELA 
Ê DBAppP 
i ely Project 
[f FirstDE.sdf 
E Forml.vb 


شكل 54-7: قاعدة البیانات s(DBښFir‏ في liفذة .Solution Explorer‏ 


2.إضافة جدول إلى قاعدة البيانات 


من القادمة ۷1ew‏ أختار ore۲امEx‏ إمvاهS.‏ لتظهر هذه النافذة كما هي 
ات ا 


أنقر فوق علامة + المجاورة لقاعدة البيانات .۴¡1۲S|0D8‏ 


أنقر يمين فوق ء٥‏ 1طا1 واختر 1eط1a .Create‏ لتظھر liذö New Table‏ 
المبينة في شكل 7-56. 


في الخانة 4٣8‏ حدد أسم الجدول وليكن ءعءو٥إلك۸.‏ 

أنقر تحت ع2× «صuاه۳‏ واكتب أسم الحقل الأول وهو .FirstİName‏ 
دع ال مءمpرا Data‏ كما هو. 

غير قيمة ال طاع١ء[‏ لتصبح 50. 


قم بإنشاء حقول لتكون خصائصها كما هي بينة في الجدول التالي: 
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E ا‎ Data Connections 


a, EFFET 


a. Ml Servers 


Server Explorer ةذفli‎ :55-7 شكل‎ 
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New Table 


ااا 


û Rekesh I Help 
Hare: 


Column Name Data Type Length Allow Mulls Unique Primary Key 


EE 


2 


Default ¥Yalue 


Microsoft SAL Server Compact 


FirstDB.sdf Default ¥alue 


Default ¥alue for the column 


By Yiew connection properties 


.New Tab[1» شكل 56-7: نافذة‎ 


TT 


أنقر المفتاح 0 ليتم إنشاء الجدول. 


3 إضافة المفتاح الأساسي Primary Key‏ 


في النافذة Server Expo‏ أختار ٥1ا۵٣‏ ثم مذ ها اختار الجدول 


.Address 


أذقر يمين وأختار عmصعطء؟‏ ماطه1 ا۴di‏ لتظ هر النافذة المبينة في شكل 
71-57. 
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1 Edit Table - Addresses BEI X) 


û] Refresh 8 Help 
î General 


Mare: 


Column arme Data Type Length اھ‎ l5 Unique Primary Key 
; nvarchar 5U No Ho 
ا‎ nrarchar B0 No No 
Streelkéddress nrarchar 50 No No 
City rwarchar E0 No Ho 
Phone nrarchar B0 No No 


| 


Default yale 


Microsoft SAL Server Compact 


FirslDB. saf Default Yalue 


Default ¥alue for the column 
j Wiew connection properties 


شكل 57-7: نافذة Edit Tab]‏ 
أمام اسم الحقل عص )ء۴۲ وتحت الحقل 118SاںN w‏ ]اا۸ غير القيمة من 
ئ إلى ٥ء‏ وغير قيمة Primary Key‏ لتصبح ۷es‏ . 
كرر ذات الإجراء السابق على الحقل عمصNaاsءa].‏ 
أنقر المفتاح )0. 
بهذه الطريقة جعلنا من الحقلين ص4 )۲ء۴ و مصهN‏ ايه[ حقلي مفتاح أساسي. 
4 إضافة البيانات إلى الجدول 
في النافذة Server Expo‏ أختار s٥1طھ٦‏ ثم مذ ها اختار الجدول 
.Address‏ 
أذ قر يم ين وأختار هة مءاطاة1 س0طS؟‏ لتظ هر النافذة المبي نة في شكل 


.7-58 
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Addresses: Query{C:" ..“ FirstDB.sdf] 


FirstYarme Lasarme Streetéaddress | City 
* 1 EE EE E 
% 
FE 
شكل 58-7: نافذة عرض وإدخال البيانات‎ 
.7-59 قم بادخال البيانات حتی تکون مثل المبينة في شکل‎ 
2 Lasflame StreetA4ddress | City Phone 
أا‎ az El Horeya .„.. Alexandria SUBS 
karim 34 Canal Str Ele El S9834004 
YMoharmrmed 171 Zohour St Alexandria 4545454 
Khalil 2A2 Ibn Maja St. El Mansoura #464 
Gharib 2aMouhata 51 Alexandria 7EAES541 
¥ E EE N E 


شكل 59-7: البيانات المدخلة للجدول 
أخیراً من قائمة ۴1٥‏ أُختار .Save A۸11‏ 
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6 الاتصال بقاعدة البيانات 
في هذا القسم نتعلم كيف يمكن للتطبيق أن يتصل بقاعدة البيانات» ومن ثم استخدام 
أدوات Studi0.N ٤1‏ امVisu‏ لتص فح محتويات قاعدة البيانات وإضا فة نس خة من 
محتويات ها للد طبيق نفسه»ء و هو ما سنقوم به في التدريبات التالية حيث سوف نقوم بإنشاء 
تطبيق يتصل بقاعدة البيانات ألتي أنشلناها من قبل. 
تأكد أن قد قمت بإغلاق التطبيق السابق قبل تنفيذ الإجراءات التالية. 
238.من llتlئnة .New Project رlتخÎ File‏ 
Îختlر .Windows Form Application‏ 
في الخانة 4٥6‏ أکتب اسم التطبیق مم 4ءء .۸dd‏ 
من القائمة 4اه( أختار urcesهS ta‏ سSh0.‏ تظهر النافذة كما هي مبينة 
في شکل 7-60. 


في نافذة Dat Sources‏ أنقر New Data Source‏ ۸44. یظھر المعالج 
hata Source Configuration Wizard‏ المبينة في شکل 7-61. 


أختار مsهطهtه0‏ وأنقر .Next‏ 


Choose Data Source sili yg ¡î .New Connection حlتnll قر‎ Î 


المبينة في شكل 7-62. 


Microsoft SQL Server Compact رlتaèİ‎ Data Source nll ja 


..5 
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Yor project currently has no data sources 
associated with it. Add a naw data source, 
then data-bind items by dragging fram this 


window onto forms or existing cantrals, 


Add New Data SOUrCE,.. 


Data Sources ةذغاi‎ :60-7 شكل‎ 


bL Choose a Data Source Type 


Where will the application get data from? 


£ ها 


Database; Service Dbject 


Lets you connect to a database and choose the database objects for Your application, This option creates a 
dataset, 


.Data Source Configuration lla ةذفاi‎ :61-7 شکل‎ 
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س 


Choose Data Source EX 


Lata source: 


Descriptio 
Microsoft Access Database File 


Microsoft ODBZ Data Source 
Iicrosoft SQL Server 

Microsoft SQL Server Compact 3.5 
Microsoft SQL Server Database File 
oracle Database 

other = 


Data provider: 


lWlAlways use this selection 


شكل 62-7: lلiفذة .Choose Data Source‏ 
اذ قر المفتاح عn†1uه).‏ تخت في النافذة Choose Daa Source‏ وتظ ھر 
النافذة ١101ء‏ ٣ص0‏ ۸44 المبينة في شكل 7-63. 


س 


Add Connection 2 


Enter infarmatian ha connect ta the selected data source or 
click "Change" to choose a different data source and/or 
provider, 


Data source: 


Microsoft SQL Server Compact 3.5 {NET Fr: 


Data Source 


{ly computer 


O artiveSyne connected device 
Cannection Properties 


Database: 


Create... 1 Browse... 


Password: 


Gaye my password 


Test Gonnection Ok Zancel 


Add Connection ةذفانiلاl‎ :63-7 شكل‎ 


.B ٥We أنقر المفتاح‎ 
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في نافذة اختيار الملف أنة قل للمكان الذي > فظ عل يه الت طبيق الذي سبق أن 
قمنا بإنشائه في 1.45 ثم أختار قاعدة البیانات ۴1۲۹۲58 - أنظر شكل 7-64. 
أنقر المفتاح ١ءم0.‏ 


Select SQL Server Compact 3.5 Database File 2E 


Look in: | &) DBApp j @ fF F E” 


bin 
My Project 
2 


My Cormpuker 


Dpen |‏ | | په 1 File name: FirstDB‏ فک 
My Nebyork Files of type: SHL Server Compact 3.5 Databases [sd] ¥ 1 Cancel‏ 


شكل 64-7: اختيار ملف قاعدة البيانات. 
أذقر المفتاح )0 حتى يتم إغلاق النافذة «i0اعصصه٣‏ ۸4 ونر جع لنافذة 


.Data Source Configuration Wizard جllza‎ 


أنقر ٥×٤‏ لتظهر الرسالة المبينة في شكل 7-65. 


Microsoft Visual Studio 


®) The connection you selected uses a local data file at is nat in he current project. Would you like 
ارف‎ ia copy the file ta your project and modify he connection? 


شكل 65-7: رسالة عن إمكانية نقل البيانات إلى المشروع. 
تسأل هذه الرسالة عما إذا كنت تر غب في نقل البيانات إلى المشروع» أختار 


.Yes 
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في النافذة التال ية من llanllج Data Source Configuration W1Zard‏ 
والمبينة في شکل 7-66 تأکد من اختيار 48 Yes, save connec†101‏ ودع الاسم 


المقترح كما هو وانقر .Next‏ 


Data Source Configuration Wizard 2 


lL Save the Connection String to the Application Configuration File 
= س‎ 


Storing connection strings in your application configuration file eases maintenance and deployment, To save 
the connection string in he application configuration file, enter a name in the box and then click Next, 


Da youı want to saye the connection string to the application configuration file? 


es, save tha connection as: 


FirstDBCaonnectionStr ing 


شكل 66-7: حفظ الوصلة 


في نص فحة Data جllznll jp Choose your database objects‏ 
Source Configuration Wizard‏ - أذظر - قم بالتاآشیر علی جمیع محتویات 
جدولك. 
أنقر نہ۴ . 
تظهر قاعدة البيانات ۴14۲1058 في ال- Solution Explorer‏ كما تظھر الو صلة 
.Data Sources öhli „ê FirstDBDataSource‏ 


.Save A11 أختار‎ ۴1٥ من القائمة‎ 
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Data Source Configuration Wizard xX 


E Choose Your Database Objects 
| 


which database objects do you want in your dataset? 


2 I Tables 
2-E Addresses 
[¥] Êl FirstYame 
[#1 E] Lastarme 
[¥] ëËl Strentéddress 
WY Êl city 
[¥1 [E] Phone 


DataSet name: 
FirstDBDataSet 


Next > Finish | Zancel 


شكل 67-7: ائصiحة Choose Your Database Objects‏ 
7. عرض البيانات في واجهة رسومية 
في القسم السابق تعلمنا أن نقوم بعمل وصلة لقاعدة البيانات» في هذا القسم نتعلم كيف 


نستخدم هذه الو صلة حتى نتمكن من بلوغ البيانات وعرضها في واجهة ر سومية بالڌطبيق 


9.أفتح التطبيق السابق المسمی مم94ءءإdل۸.‏ 
من |لliفذة Solution Explorer‏ ختار .Form1.vb‏ 
آنقر فوJ View Designer‏ . 
أنقر فوق .D4†4 S00 e‏ 


من النافذة ٥إ‏ uاه؟‏ ه4( قم بسحب الجدول ء١۸۲‏ ورميه فوق النموذج 


.Forml 
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تظهر نتيجة لذلك عدد من عناصر التحكم كما هو مبين في شكل 7-68. 


شكل 68-7: عناصر التحكم التي أضيفت للنموذج .۴٠١٣1‏ 


أختار عنصر التدكم Ad dressesData6 r1 View‏ و من نافذة الخص ائص 
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| Streetéaddress | City 


TE Sene emen 
| 
۰ 


شكل 69-7: البرنامج عند التشغيل. 
8 تحديث البيانات 


في هذا القسدم سوف نتعلم كيف يمكذ نا أنشاء واج هة لإدخال وتحد يث البيانات في 
قاعدة بيانات محلية. فيما سبق قمنا بإنشاء نسخة من قاعدة البيانات في التطبيق وأطلقنا عليها 
أ سم قاعدة البيانات المحليةء وهذا يعني أن هذه البيانات ليت هي تلك المحفو ظة في قاعدة 
البيانات الخارجية ولكنها مجرد صورة منسوخة عنها محفوظة في المشروع يطلق عليها اسم 
€ و في كل مرة نقوم في ها بتشغيل البرنامج يتم عمل صورة عن قاعدة البيانات 
الأصلية وتصبح هي ال مءه)ه( لكن عندما يتم تعديل ال وهاه فإن هذا لا ينعكس في 
قاعدة البيانات الخارجية. 

لعلك لاحظت في واج هة الد طبيق المبينة في شكل 7-69 أن هناك أيقو نة مره؟» 
عند ما يقوم المستخدم بالذقر فوق مه6 فإن البيانات المدخلة إلى ال )مءه)ه( يمكن حفظها 
فى قاعدة الانات الخارجية لكن ماذا اذا تسى المستخدسين النقر فرق هذا المفتاح؟!, التجتب 
مثل هذه المواقف يمكن للمبرمج أن يقوم بإضافة تعليمات لحفظ البيانات عند إغلاق البيانات 


وهذا ما سوف نقوم به هنا. 


0.أفتح المشروع السابق. 
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من نافذة Exp]‏ uti0onاSo‏ أختار قاعدة البیانات ۴1۲0(8 وتأکد من 
خص ائصها أن الخا صية yإDirec†0 Copy t0 Output‏ فعالة ومضبو طة على 
.Copy 1f Newer‏ 

أختار النموذج 1٣۲إ٥۴.‏ 

. View Designer jتخİ‎ 

أختر AddressesData Grid View‏ من فوق النموذج ثم أضرب المفتاح 
‰6 من لوحة المفاتيح لحذفه. 

.Solution Explorer „û Data Source بيوبتلl أختار‎ 

أنقر فوق علامة + إلى جوار قاعدة البيانات ۴1۲5128 لتظهر محتوياتها. 

قم بس حب ور مي كل عنص ر من عنا صر قاعدة البيانات فوق النموذج 
۴1 يظهر كل مرة عنصري تحكم واحد من النوع 1ء طج1 والآخر من النوع 
۲re×8B 0×‏ أنظر شکل 7-70. 


Surces Ex 


o5 Ex E 


First Hame: Ahmed 

Last Name: ااك‎ 

Street Address: Z5 El Horepa Ayer. 
Lily: ûleandria 


Phone: BUSSISD 


شكل 70-7: تعديل واجهة التطبيق. 
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أنقر مرتين فوق النموذج لتفتح محرر التعليمات 0۲ .Code Edit‏ 
أختار من قائمة الأحداث اطع ٤v‏ الحدث .FormClosing‏ 
في معالج الحدث ع٣1وم1ً٣دمإه1_۴صmإ٥۴‏ اكتب التعليمات التالية: 
Me.AddressesBindingSource.EndEdit ()‏ 


Me.AddressesTableAdapter.Update (Me.FirstDBDataSet.Addre 
sses) 


هذه التعليمات تج عل الکائن †٥۲‏ م2 ۸ء1ط۲2ءءءءءd۲‏ ۸ ينسخ أي تعديلات 


البيانات تحدث في ال ءءهه( إلى قاعدة البيانات الأساسية. 
أضرب المفتاح ۴5 لتتذيذ البرنامج. قم بتغيير بعض البيانات وأضف بڊعض 
السجلات ثم أغلق النموذج. 
أضرب المفتاح ۴5 لتنذ يذ البرنا مج وتأً كد أن التغييرات التي قمت بها قد 
نفذت. 
9 عرض البيانات من جداول مترابطة 
في الأقسام السابقة تعلم نا أن نقوم بإنشاء نماذج لإدخال وتحديث البيانات إلى قاعدة 
البيانات. في هذا القسم نتناول كيف يمكن عرض البيانات من جدولين منفصلين في نموذج. 
1 تدريب: الاتصال بقاعدة البيانات .North wind‏ 
1.من lallئnة .New Project رlتخÎ File‏ 
Îختlر .Windows Form Application‏ 
أنقر المفتاح )0. 
أختار من التبويب Data Sources‏ في liذة .Solution Explorer‏ 
أiقر‏ فوJ .Add New Data Source‏ 


تظهر نافذة hata Source Configuration Wizar|‏ المبینة في شکل 7-71 
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ار 
Data Source Configuration Wizard x‏ 
Choose a Data Source Type‏ 0 
سو 
Where will the application get data from?‏ 


BB ا‎ £ 


DABE Service Object 


Lets you connect to a database and choose the database objects for your application. This option creates a 
dataset. 


١ 


Data Source Configuration Wizard öذغli‎ :71-7 شكل‎ 


. Database راتخÎ‎ 
.Ne×† أنقر‎ 
.New Connection lial أنقر فوق‎ 


تظهر النافذة م0ناءعممصه€ ۸44 المبينة في شكل 7-72 
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| Add Connection Em 


Enter infor mation to connect to the selected data source or 
clkk "Charge" to choose a different data source andyor 
provider. 


Data şource: 


Microsoft SQL Server Compact 3.5 (NET Fri 
Data Source 


My computer 
O ğcliveSync connected device 


Connection Properties 


Database: 
CProgram Files\Microsoft SQL Server Compact Editior 
Password: 
Şare my password 
Adyanced... 


Jest Connection OK | Cancel 


Add Connection شكل 72-7: النافذة‎ 
. 80W ۵ أنقر فوق المفتاح‎ 
Program Files\Microsoft SQL Server Compactl دlڊnلl‎ jn 


esا3.Samp Edition‏ أختار قاعدة lلبيlنlٽ .North wind‏ 
أنقر المفتاح ١ءم0.‏ 
في النافذة Add Connection‏ أنقر .O&‏ 
في النافذة نlفذةö .Next رãiî Data Source Configuration Wizard‏ 
أجب ب ء٠۷‏ عن السؤال الذي سوف يظهر . 
تأكد أن المربع المعنون ك2 C)101‏ 0۸16ء Yes, save the‏ معلم. 
في الصفحة التالية والمعنونة ب— Choose Your Database Objects‏ أنقر 
فوق علامة + بجوار ١ء1طه٠‏ لترى جميع الجداول» ثم أنقر المربعين المجاورين ل 
.Products sy Order Details‏ 


أنقر المفتاح 1ینہ۴. 
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يتم إضا فة قاعدة بيانات محلية للمشروع هي )1422س ط)اهN‏ وتظ هر في 


.Data Sources التبويب‎ 
.Data Sources بıوبتll‎ „i North windDatase أنقر فوق‎ 
l4J Copy to Output Directory ةصlخlا‎ Jaجأİ‎ Properties öةiفliلا في‎ 


.Copy 1f newer nll 


في القائمة ۴1٥‏ أختر ۸11 84۷٥‏ وأحفظ المشروع. 


2 تدريب: عرض البيانات المترابطة 
يمكن من خلال التبو يب وعcإuهS؟‏ واه( استكشاف العلا قة مiطئم Rat‏ ڊين 
الجدول ين المترابط ين. في هذا التدر يب مثلا إذا نقرت فوق الجدول وا ں ل٥۴‏ ستجد أن 
الجدول اهاه ۲ء ل0۲ موجود في نهاية الجدول ut‏ له إشارة إلى أن هناك ثمة علاقة 
بين الجدول {عں ه۴۲ الجدول وانهام5 إعإإ0. وإذا قام المبرمج بسحب الجدول إعdا©O0‏ 
‰6 ورميه فوق النموذج فإن العلاقة بينه وبين الجدول واعuلهإ۴‏ تظهر في صورة 
في التبو يب ك٥ءإuاهS؟‏ هه( أذقر فوق علامة + في الجدول اduc٥إ۴‏ 
لاستعراض الحقول التي يحتويها. 
إلى جوار الحقل Product Name‏ أذقر علی السهم تم أختار عنصر التحدكم 
Label‏ . 
قم بس حب الد قل Producti Name‏ من التبو یب (ata Sources‏ إلى 
آ ا 
قم بس حب الجدول ءازجا ١ء‏ ل0 من ذ يل قاد مة محتويات الجدول 
)uله"P‏ إلى النموذج ليتم عرضه في نافذة جدول. 


أنقر ۴5 لتنفيذ البرنامج. 


جرب استعراض محتويات الجدولين. 


حول برمجة تطبيقات قواعد البيانات 
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الففبة المر وة في ها الق كان مق مة مطة حول برمهة تطقات فرغ 
البيانات والتي يلزم لتطوير ها بصورة مهذية الإلمام بتقنية ۸50.N٤1١‏ المكملة ل إوuئز۷‏ 
Basic. NE1 8‏ والمتعلقة ببرمجة تطبيقات قوا عد البيانات. وهذه التقذية مصداحبة ل 
Basic.NET‏ اVisua‏ منذ الإصدارة 2003« ڊIniı‏ تميjزٽ‏ 2008 Visual Studio.NET‏ 
بتقنية جديدة لبرمجة تطبيقات قواعد البيانات هي تفنية 4م1]. 
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اس ستخدام الملفات 


كما قدمنا من قبل في القسم السابع»ء تتعامل معظم التطبيقات مع بيانات مختزنة خارج 
ال طبيق» و فق الق م الس ابع تعرذنا كيف يم كن التعا مل مع البيانات المختز نة في قوا عد 
البيانات. لكن هناك كذير من التطبيقات التي تتعامل مع بيانات مختز نة خارجها في أشكال 
أخرى غ ير قوا عد البيانات أهم ها الملفات. في هذا القىد م سنتعرف على المهام الأ ساسية 
للا ستخدام الملفات في 2008 »۷¡sua[ Basic. N٤1‏ وهذه المهام تعڌ مد على الكائن 
Ny. €0mputer.FileSystem‏ والذي يسهل على المبرمج التعامل مع الملفات المختلفة'. 


ا ا ف فر اشن الدور ا ع 
المجلد وإ ں)ء¡۴ ۰۷y‏ كما سنقوم بالتعرف على الكائن و ونتعلم كيف یمکن استخدامه 
افا کا ات فی لے ی 


0 عرض الملفات المختزنة في مجلد 


في هذا القسدم سوف نتعرف على | ستخدام My.Computer.File System jûl‏ 
للتعرف على أ سماء الملفات المختز نة في مجلد معين. وبداية سوف نعرف المجلد ل۴01 
كمس |حة يختjj Microsoft Windows pدقaڍg «تlفlnll Microsoft Windows lıle‏ 
مجمو عة من المجلدات المخصصة لحفظ أنواع معينة من الملفات للتبسيط على المستخدم مثل 
lأnجiڌ .My Pictures gy My Document‏ 


وكما سبق أن قدمنا موضوع تدريبنا هو إنشاء متصفح للصور الموجودة في المجلد 
My Pictures‏ وذلك با ستخدام عنص ري التحكم ×80 1ء11 لعرض ملفات الصور و 
P¡ctu re 80×‏ لعرض الصور نفسها. 


وبغض النظر عن نظام الث لتشغيل الذي يعمل البرنامج من خلاله. 

۶ في ۴× Microsoft Windows‏ تعرف هذہ المجلدات ڊ - MyDocume†‏ و MyPictures‏ وهکذاء بيذ ما في 
Microsoft Windows Vista‏ تعرف بڊ- Documents‏ و Pictures‏ وھکذا بدون ۷y‏ لذلك یجب علی القارئ آخذ هذا 
في الاعتبار عند كتابة التعليمات الخاصة بالتطبيقات الواردة في هذا القسم. 
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1 تدريب التعرف على الملفات 

يم کن أن نس تخدم lئÙطرڍةة My. Computer.FileSystem.File Exists‏ للمعر فة 
ما إذا كانت هناك ملفات مختز نة في مجلد معين أو لا » كما يمكن البحث عن ملفات محددة 
بالا سم بوا سطة هذه الطري قة. ولا سترجاع ملف مع ين يم كنا ستخدام الطري قة 
My. Computer. FileSystem.GetFiles‏ لهذا الغرض. ک ما یم کن | ستخدام العلامات 
الخا صة كإع†ءaraمط٣ W114‏ للب حث عن الملفات. كذلك يم كن |١‏ ستخدام الكائن 
My.C0mputer.FileSystems. Special Directories‏ اتخص یص مجلد مع ین م ثل 
6اا و هو يتيح للمبرمج أن يسترجع قائمة بأسماء جميع الملفات المختزنة في هذا 
المجلد. 

الآن نفذ الإجراءات التالية لتنفيذ واجهة البرنامج وعرض الملفات المختزنة في «My‏ 
.Pictures‏ 


2.من llتlئnة .New Project رlتخÎ File‏ 
Îختlر .Windows Form Application‏ 
في الخانة ×4٠‏ آكتب اسم التطبیق ۵e۷ 1e W۲‏ rں)۴ic.‏ 
أنقر المفتاح )0. 
أضف على النموذج عناص llت>كp ListBox‏ ,و PictureBox‏ ڪ .Button‏ 
أضبط خصائص عناصر التحكم المكونة للواجهة لتتوافق مع الجدول التالي. 
1 


| إ6 .|42400 ا 
Stretchlmage|_ SizeMode| |‏ _ 
Sie |‏ 285,301 ا 
Location) |‏ ||12,2 _ 
Sie |‏ )82,30 ا 
Location) |‏ |314,2 __ 
LoadPictures|) Textj |‏ _ 
Sie |‏ 32,68 1 
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395,12] Location] | 


aH Picture Viewer اا‎ 


Load Pictures 


شكل 73-8: واجهة التطبيق 


أضف التعليمات التالية إلى الحدث: 


Me. LiStEBOoxl1. Items. CLeaãFE () 


Me.PictureBox1. ImageLocation = "" 


For Each founlmage As String In 


My.Computer.FileSystem.GetFiles ( 


My.Computer.FileSystem. SpecialDirectories.MyPictures, _ 


FilelIO.SearchOption.SearchTopLevelOnly, _ 


TRG, "#IBO™) 
Me.ListBox1.Items.Add (founImage) 


NEXÊ 

في هذه التعليمات تس تخدم الطري قA My.Computer.FileSyste.GetFiles‏ 

لاسترجاع قاذمة بأسماء الملفات» وتتعين الملفات المسترجعة بهذه الطريقة بثلاثة مدخلاتء 

الأول هو المجلد المطلوب ١‏ سترجاع الملفات المختز نةعلا يهو هو المجلد 

»eMy.0mputer.FileSystem.SpecialDierctories.MyPictures‏ مم المتغ یر 
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الثا ني طري قة الب حث كأ حدعنا صر العائلة و10ام0طءarم۴]e10.S‏ والعنص ر 
op Level n 1¥‏ ا earch‏ يعني البحث في المجلد المحدد دون المجلدات الفرعيةء وثالتا 
نو عية الملفات المطلوب البحث عنها كمتغيرات نصية. 
2 عرض الصور 
في نافذة 0de Edit‏ أختار st80×1ءi‏ من القائمة .°1ass Name‏ 
من القائمة Method Name‏ أختر الطريقة .SelectedIndexChanged‏ 
في عامل الحدث ged‏ ist8B0x1_SelectedIndexCh2aا‏ أضف التعليمات 
التالية: 
Me.PictureBox1. Imagelocation = Me.ListBox1l1.SelectedItem‏ 
أنقر المفتاح ۴5 لتنفيذ البرنامج. 
أذ قر المفتاح ومإںءز۴ 4 ه0[ لتظ هر قاد مة بأ سماء ملفات الصور في صندوق 
القائمة قف» أختر أي من هذه الملفات لعرضه. 


al Picture Viewer lax) 


CMDocuments and Settings Welcomeyly Documents ly Pic a 
Cî Dorcuments and SettingsWelco mey DocumentsYly Pic 
TF Anarı mente anıl ي‎ Dınrı 7 
¢ 111 + 


۳ 


Load Pictures 


شكل 74-8 ك التطبيق أثناء التنفيذ 
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3 تحسين عمل البرنامج 

قد يكون من غير المناسب في بعض الأحيان أن نقوم بعرض أسم الملف كاملا (أي 
أ سمه محتويا على المسار)» كما قد تد عو الحاجة أحيانا للتعرف على المسار الرئيسي فقط. 
و في كلا الحالڌین فإن الکائن ع tءSyء]My.Computer.۴¡1‏ یس اعدنا کثیراًء حیث یم کن 
استخدام الطريقة hځMy.€0mputer.FileSystem.GetParentPa‏ للتعرف علی مسار 
الملف ف قط دون ١‏ سم الملف« والJطÜطرږ My.Computer.FileSysten.GetName Aã‏ 
للحصول على أسم الملف فقط دون اسم المسار. 
1. كتابة البيانات في ملف نصي 

ےا الق سرف کے کف ر بالا دا کل ملت تی با سكا اكان 
.My.€0mputer.FileSystem‏ وذلك با ستخدام الطري قة 
My. 0m puter.FileSystem. Write A11 Text‏ وال تي تقوم بكتا بة البيانات في ملف 
نصي ٠٠×) ۴11٥‏ فإذا كان هذا الملف غير موجود تقوم الطريقة بإنشائه» ويمكن للمستخدم 
أن يحدد ما إذا كان يريد أنشاء ملف جديد لهذه البيانات المرسلة للملف - في حالة عدم وجود 
ملف - أو یلزم برنامجھ بتعدیل ملف موجود عن طریق استخدام مں٣۲‏ أو مه۴ للبارامتر 
ممه في الصيغة المستخدمة. 


في التدريب التالي نقوم بإضافة نص إلى ملف نصي. 
3.أفتح المشروع السابق. 
أضف مفتاح ١0ا8‏ جديد لواجهة البرنامج. 
ف زرل اقل لاحن اصح کالی: 
|العفصر _ إالخاصية اإاقيمة ااال 
| 


395,12 
FavoritesAdd 


Add to Favorites) Tx] | 
3284 Sj | 
395,102] Location j 


أنقر مرتين فوق المفتاح ۲م۴۵۷ وأضف التعليمات التالية: 


If PictureBox1.ImageLlLocation <> "" Then 
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' Add the selected picture to the favorites text file. 


My.Computer.FileSystem.WriteAllText (FavoritePictures, 


Me.ListBox1.SelectedItem & ",", True) 


Ehd. TÊ 


ضف هذه التعلیمات تحت ۴٥۲۱1‏ sیھا€‏ 1cااں۴u‏ مباشرة: 


Dim FavoritePictures As String = 
My.Computer.FileSystem.SpecialDirectories.MyDocuments 
& "\FavoritePictures.txt" 


اضرب ۴5 لتنفيذ البرنامج. 

أختر احد الصور. 

.Add to Favorites حlتnll قر‎ 

أذهب إلى مكان الملف على ٤٣ء‏ uءم( My‏ ثم قم أفتح الملف وتأكد أنه قد 

كتب الملف فيه. 
2 قراءة البيانات من ملف نصي 
في هذا القسم نتعرف على كيذية قراءة البيانات من ملف نصي. یمکن قراءة البيانات 

القضب ي ن الا اتف ي ي ستخذدام الطري ت 
.My.C0mputer.FileSystem.ReadA [Text‏ 1 کن في کڈ ير من الأحوال تكون 
النيانات في الملفات النصية مقصولة بوا سطة علامة الفاصلة وهذا التوع من الملفات بطق 
عليها الاسم ءع]اگ text‏ imitedا‏ maصە‌c‏ وهو من أنواع الملفات النصية شائعة الاستخدام 
لاختزان البيانات» لذلك تو جد طريقة مباشرة لقراءة البيانات من هذا النوع من الملفات هي 
lنÙطرıةڌة .My.Computer.FileSystem.OpenTextField Parser‏ 


في التدر يب التالي سوف نقوم باختبار ما إِذا کان الkذJۉ Favorite Pictures‏ 
موجود في المجلد My Document‏ فإذا کان موجود سوف يقوم البرنامج بقراءة البيانات 
من الملف 


4.أفتح المشروع السابق. 


أضف مفتاح ١0ا8‏ جديد لواجهة البرنامج. 
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قم بتعديل خصائص المفتاح لتصبح كالتالي : 


1 
LoadFavorites 
Load Favorites] Tx | 


32,841 Sie | 
395,193] Location] | 


أنقر مرتين فوق المفتاح sء‏ انم ۷ة۴لة1 وأضف التعليمات التالية: 


' Clear the picture box and the list box. 
Me.ListBox1.Items.Clear () 


Me.PictureBox1. ImageLocation = "" 


ثم أ ضف التعليمات التال ية لتع قب التعليمات الس ابقة مباشرةء وهذه التعليمات 
عبارة عن جملة 1f‏ تختبر ما إذا كان الملف ۴v oriteP¡c†ںu res‏ موجود آم غير 
موجود. فإذا كان الملف غير موجود فإن البرنامج سوف يذفذ التعليمات اللاحقةء أما 


إذا كان غير موجود فسيتم تنفيذ التعليمات في الكتلة عء[ع. 


If My.Computer.FileSystem.FileExists (FavoritePictures) 
Then 

' Add code to read text from a file. 

Else 


MsgBox ("There is no favorites file yet. Click Load" 


& " Pictures," & vbCrLf & "select a picture, and" & 
" then click Add to Favorites.", MsgBoxStyle.OkOnly, 


"Picture Viewer") 
End If 
بالتعليمات التاليةء وهي التعليمات التي‎ 11٥١ استبدل جملة التعليق التالية ل‎ 


تسد تخدم الطري قة Pasa‏ 1ء۴1 ex)‏ ا pen‏ لقراءة محتويات الملف 


.FavoritePictures 


' Open the FavoritePictures text file by using 
' OpenTextFieldParser. 


Dim MyReader As 
Microsoft.VisualBasic.FilelIO.TextFieldParser 


MyReader = My.Computer.FileSystem. OpenTextFieldParser ( 
FavoritePictures) 
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MyReader.SetDelimiters (",")‏ 
أ ضف التعليمات التال ية ع قب التعليمات الس ابقة مباشرة» وهذه التعليمات 


وظيفتها تكرار عملية قراءة البيانات من الaلزف .Favorite Pictures‏ 


' Using a comma (,) as a delimeter, parse each field 
9Î 


' the text file and add it to the list box. 


Dim textFields As String() = MyReader.ReadFields () 
For Each currentField As String In textFields 


If My.Computer.FileSystem.FileExists (currentField) 
Then 


MezLLStEBOxXL. TEems .AQA(EUFEEREFLELA) 
ENQA’ LE 


Next 
' Close the TextFieldParser. 
MyReader.Close () 


أنقر المفتاح ۴5. 

أنقر المفتاح كه) اه۴ [٥44‏ ليتم تحميل ملفاتك المفضلة فقط. 
3. حذف ملف 

في هذا القسد م نتعلم ك يف يمكذ ناحذف ملف با ستخدام الطري قة 
.My.C0mputer.FileSystem.DeleteFile‏ من المنا سب آن یقوم ال مبرمج بس ؤال 
مستخدم برنامجه حول ما إذا كان متأكد من رغبته في حذف الملف أم لا وبناء على إجابته 
ينفذ عملية الحذف أو يلغيها. 
5.أفتح المشروع السابق. 

أضف مفتاح ١0ا8‏ جديد لواجهة البرنامج. 

قم بتعديل خصائص المفتاح لتصبح كالتالي: 


DeleteFavorites 


Delete Favorites) Text | 
32,841 Sie | 
395,283] Location | 
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f My.Computer.FileSystem.FileExists (FavoritePictures) 


' Ensure that user wants to delete the favorites text 
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أنقر مرتين فوق المفتاح esٍoriْeteFavاDe‏ و أضف التعليمات التالية: 


'"' Check that thë FavoEILtes text filëê eX1SES. 


Then 


= 


file. 


If MsgBox ("Are you sure you want to send the 
favorites" & " file to the Recycle Bin?", 
MsgBoxStyle.YesNo, "Delete Favorite Pictures") = 
MsgBoxResult.Yes Then 


' Clear the picture box and the list box. 


Mê. liStEBOX1 Items. CLeaE 0) 


Me.PictureBox1. ImageLocation = "" 


'" DêlLétêéê  thê. fãavöoEites. fllle: 


My.Computer.FileSystem. DeleteFile (FavoritePictures) 


ENA. TLE 


Else 


MsgBox ("The favorites file does not exist.") 


ERO: LE 


Delete Favorite حlتnئll أنقر وق‎ 


تأکد أن الملف قد تم حذفه My Document ja‏ 
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أسس برمجة الكائنات 


كما قدمنا من قبل تعتمد البرامج التي يتم تطوير ھا باستخدlم Visual Basic.NET‏ 
8 على الكائنات وء زط0 بصورة أساسيةء هناك من الكائنات ما تقدمها اللغة نفسها 
مثل عناصر التحكم والنماذج» وهناك الكائنات التي يقوم المبرمج بنفسه ببناء ها لأداء حاجات 


يتس م مفهوم الكائن بوجود مفهوم آ خر هو مفهوم الفئة ووه[ا٣‏ مص احب لهء وهذا 
المفهوم يم كن أن نقد مه كالمخ طط الهند سي للكائن» ف هو يحتوي على البيانات ال تي من 
المفترض أن يتعا مل الكائن مع هاء والطرق التي سيستجيب ب هاء ومجمو عة الأحداث التي 
سيستجيب لها. ومن تم يتم بناء الكائنات على شاكلته. 


4.ءما هي الفئةً و»وإا€؟ 

ك ما قدم نا يمكذ نا أن نذ ظر على الفئة على أذ ها المخ طط الهند سي للكائنات» أو في 
صورة أك ثر حرذف ية ومص داقية على أذ ها كائن مثالي مجرد سيتم بناء الكائنات على مثاله. 
وذحن نقوم بالتعامل مع هذه الفئات منذ بداية استخدامنا ذ- 2008 «Visual Basic.NET‏ 
فمثلا عنصر التحكم 1١×80×‏ هو في واقع الأمر عبارة عن فئةء وفي كل مرة نقوم بسحبه 
إلى سطح النموذج فإذنا في الواقع نقوم بإنشاء مثال ععصهاوم عن هذه الفئة أو من خلال 
مصطلح مبسط نقوم بإنشاء كائن. وعلى هذا فإن الكائن ×ه0ط)×م] من الممكن أن نقوم بإنشائه 
بالطريقة التقليد ية التي تعتمد على سحب العنصر ورميه أو نقوم بكتا بة التعليمات اللاز مة 
لإنشائه وذلك بصورة بسيطة كما هو مبين في السطر التالي: 

Dim myTextbox as New TextBox 

أما أنشاء الفئات واستخدامها فسوف نتعرف عليها بصورة تفصيلية في أجزاء متقدمة 
من هذا القسم. 
1 ماذا بداخل الفئة؟ 

في القسدم ۳.٠.۳‏ تعرفنا على الخصائص والطرق والأحدات» وتعلمنا كيف أن لكل 
الكائنات خصائصها التي تصفهاء والطرق التي تتصرف بها والأحداث التي تستجيب لها. 
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وبالم تل فإن الفئة لها خصائص وطرق وأحداث (يطلق عليها في بعض الأحيان الأعضاء 
.(Members‏ 

کم مال ن 1ھ ھا هھ اة الک اب اند کی لى نه ةا مسا 
Bank Account‏ ف من المم کن أن یکون ل ھا خص ائص م تل ر قم الحس اب 
ccount Number‏ والقی مة الحد ية للحس اب ع81a۸c٤ounە۸ccء‏ وطرق م ثل حس اب 
الر بح est‏ rم†te[nاCa1cua»‏ وأحداث م تل تغ ير القي مة الحد ية لe‏ ع12٤‏ ءancا8a.‏ أي 
حس اب بذ كي لا بد أن يكون له هذه الخص ائص والطرق والأحداث» ل كن ع ند أنشاء كائن 
Bank Account1‏ كمثال عن الْفة اص0uءc 4A‏ )مه ۰/8 فإنه سیکون له خصائصه وطر قه 
وأحدا ثه الم تنسخة عن الفنة A /ء0ںu ٣٤‏ )مه8 وال تي تختلف عن الخص ائص والطرق 
والأحداث الخاصة بالكائن ۸٥٥-0112‏ )مه8 المثال عن ذات الفئة. 

تو جد أحداث / أعضاء يطلق علي ها الأحداث الخاصة معهر۲» و هي تلك الأحداث 
التي يتم تنفيذ ها داخل الكائن» ولا يتم تنفيذ ها خار جه. فمثلاً الفنة BA 0u‏ يمكن أن 
کروی کی حت لخي اا الخ ت رو ار ف ا اک ی که 
بتغيير هذه القيمة. 

يمكن للمبرمج أن يقوم بإخفاء الأعضاء داخل الفئة بإعلانهم ماه 1۷م أو يمكنه أن 
يتيحهم للاستخدام خار ج الكائن عن طريق إعلانهم ٥1ااں٥»‏ كما يمكنه أن يسمح للمرور إلى 
الخواص ولا يسمح بتغيير ها عبر إعلانها خواص للقراءة فقط رام 440ء۸ . 

الات افا ن فكل ال رن علد اة 


Class BankAccount 


Private AccountNumber As String 


Private AccountBalance As Decimal 


Public Sub UpdateBalance () 
' add code to recalculate balance. 


End Sub 


ReadOnly Property Balance() As Decimal 
Get 


Return AccountBalance 
End Get 


End PEODEEFEY 
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End Class 


5 آأنشاء الفئة 
في هذا القسدم سوف نخطو خطوة جديدة للأمام حيث سوف نقوم بإنشاء كائن يمثل 
شخص» تم نقم بتخزينه لاستخدامه في برامج أخرى. يمكن إنشاء الفئة بإحدى ثلاثة طرق: 
بين التعليمات الخاصة بنموذج في أي من تطبيقات النوافذ. 
في وحدة نمطية عاuںdهN‏ مستقلة ولكنها ملحقة بتطبيق النوافذ. 


في مشرو ع مكتبة فة رإهإط1 وها مستقل. 


1.اآنشاء الفئات في المشروع 
لعل القارئ قد لا حظ أنه في التدريبات السابقة أنه عند الذقر فوق النموذج مرڌين 
ينفتح محرر التعليمات ويرى القارئ ما يشابه التالي: 


Public Class Forml 


PE1Yate SUD. FOEML,. LOad ss. 


End Sub 
End Class 


في عبارة بسيطة» النموذج ۴1 یعتبر في حد ذاته فئةء لذلك فهي تبداً ب ووھا) 
وتنتهي ب- وها لم8 وأي تعليمات يقوم المبرمج بإضافتها داخل هذه الفئة تعتبر جزء 
منها. وبالرغم من أن النموذج ۴٠۲۳‏ يحتوي على فئة واحدة فقط, إلا أن المبرمج يمكنه أن 
يضيف المز يد من الفئات عن طر يق أن یحرر ھا مبتدئا ڊ ویوا ومنتھیا ڊ- ییCla End‏ 
وذلك بعد ووه[ا€ م۴ الخاصة بالنموذج ۴0m‏ وفي تلك الحالة يصبح محرر التعليمات 
يحتوي على فئتين في آن واحد كما هو مبين فيما يلي: 

Public Class Forml 
' Forml1l code here 
End Class 
Public Class MyFirstClass 


' Your Class code here 


End. Class 
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وتعتبر الفئات المنشأة بهذه الطريقة قاصرة العمل على المشروع الذي يضمها فقطء 
ڏ كن إذا كان ال مبرمج يخ طط أن يس تخدم هذه الفئة في أك ثر من مشروع فيمك نه أن يقوم 
بوضعها في وحدة نمطية كما سيأتي. 
2 الوحدات النمطية للفئات 

الوحدة النمطية ماله للفئة هي عبارة عن ملف تعليمات مستقل يحتوي على 
واحدة أو أكثر من الفئات» ولأنها ملف مستقل فيمكن استخدامها في أكثر من مشروع. يمكن 
أنشاء الوحدات النمطية للفئات بطريق من أثنين: 


عن طر يق إضافة وحدة نمطية إلى مشروع تطبيق» وذلك من خلال الذقر على 
القائمة ٥٤‏ ز٥۴‏ واختیار ہع)] New‏ ۸44 تم اختیار sیھC1.‏ 


عن طريق أنشاء مشرو ع مكتبة فة اط1 sیها٤.‏ 


أ مافن هذا اللن ب سوت فقن اء مك ية فة عند تة رلك مين الخظرات 
التالية: 


6في القائمة ۴11٥‏ أنقر فوق †ecزPr0 .New‏ 
في التبويب .Class Library رlتخÎ Template‏ 
في الخانة ×4٥‏ أکتب یممیام۴ ثم أنقر 0k‏ 


يتم فتح مشروع مكتبة فئة جد يد ويعرض حرر التعليمات وحدة نمط ية للفئة بعنوان 
0ه کما هو مبین في شکل 9-75 


في النافذة Solution Expo re‏ أذ قر فوق ٥141.۷‏ مس تخدما مفتاح 


الفأرة الأيمن وأختار ٥14۳ء۸‏ ثم قم بتسمية الفة ا0۸.۷٤إ٥۴.‏ 
أختر من القائمة ۴11٥‏ الخيار ۸11 عهS؟.‏ 


.Save أختار‎ Save Prec في نافذة‎ 
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6.إضافة الخصائص إلى الفئة 

في القسم السابق بينا كيف يمكن إنشاء فئة» وقمنا بإنشاء فئة هي اة و0یإ٥مP‏ التي 
من المفروض أن تمثل أشخاص عاديين» وحيث أن أي شخص له مجمو عة من الخصائص 
مثل الاسم والسن» فلابد أن تكون للفئة القدرة على تمذيل هذه الخصائص. وهو ما سنحاول 


تقديمه في هذا القسم. 


‘4 Person - Microsoft Visual Studio ا‎ E 
File Edit wiew Project Build Debug Data Iools Test window Help 
IE PEREN EEN NEE GRR EEE ee EA FEE 
Toolbox wf xX Class1.vb | w xX | Solution Explorer ww xX 
|| (General) » | Jl (Derlarations) | ا‎ ENN ك‎ 
lğel Person 
There are NO A Public Class Class1 أ‎ ã1 My Project 
usable controls in 1 3# 
this group, Drag End class 8 
an item onta this 
text ta add it to 
the talbott. 
٤ Properties eH xX 
FINE 
vw 
۳ 3 


۳ Error List 


شكل 75-9: مشروع ا۲ط ووه[ في محرر التعلیمات 
يم كن إضا فة الخصائص للفئة بطريقة من اثندين» إ ما في صورة حقول ءل[م۴ 
مباشرة أو كخصائص في إجراءات مم۴0 .۴roced ures‏ وكذلك یمکن إعلان ھذہ 
الخص ائص کخص ائص عا مة ٥1ں‏ أو خا صة للكتا بة ذ قط رآ« 0)إإ۷ أو خواص 
للقر اءة فقط راو .R e240‏ 


1 الحقول وخصائص الإجراءات 


يمكن الذظر إلى الحقول على أنها متغيرات عامة يمكن الو صول إليها من داخل أو 
می کار ج الق تد خد الول بص ورو گی لاتراق ال س آ3 کے ۷ اتقاج إل کد فق 
vai date‏ - على سبيل المتال البيانات من النوع ال- مهع[00ه8. في حالة الفئة م0یإمP‏ 
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يمكننا أن نجعل هناك خاصية بالاسم ع۸11۷ وتكون من النوع ]هم8 لتبين ما إذا كان 
Public Alive As Boolean‏ 
لكن للأسف فإن معظم الخصائص التي تضاف إلى الكائنات تحتاج إلى تحقق ومن ثم 
فإنه يتم إضافتها كمتغيرات إجرائية. تتكون المتغيرات الإجرائية من ثلاثة أقسام: 
إعلان عن متغير خاص ع۴۲1۷4 لاختزان قيمة الخاصية. 
إجراء )66 ويستخدم لاسترجاع قيمة المتغير› 
إجراء ع8 لتعيين قيمة المتغير. 
بهذه الطريقة يمكن أنشاء خاصية كمتغير إجرائي في الفئةء التعليمات التالية تنشئ 
خاصية eصھN‏ للکائن وPers0.‏ 
Private nameVvalue As String‏ 
Public Property Name() As String‏ 
Gê‏ 
Name = nameValu‏ 
End Get‏ 
Set (ByVal value As String)‏ 
nameValue = value‏ 


End Set 
End Property 


في الس طر الأول من هذه التعليمات ي تم الإعلان عن متغ ير خاص مه۲۲۷ من 
النوع عماS)۲‏ باسم عںاه ۷ع ص هم والذي سوف يختزن قيمة الخاصية. المتغير الإجرائي 


يبدأ مع العبارة yمم۴ro Pubic‏ وينتهي مع llعبlرة .End Property‏ 


الإجراء ء6 يحتوي على التعليمات التي سوف يتم تنفيذها عندما تريد أن تقرأً قيمة 
الخا صية» فعلى سبیل المثال إذا ك نت تر غب في قراءة الخا صية عPerson.Nam‏ فان 
التعليمات السابقة سوف تعيد القيمة المختزنة في عu‏ اج۷ ع"۳ه4.١.‏ 
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الإجراء 6٥‏ يحتوي على التعليمات التي يتم تنفيذ ها عند تخصيص قيمة للمتغير 
nam 6‏ تستخدم كقيمة يتم تمرير ها كبارامتر لهذا الإجراء. فمثلاء إذا قمت بكتابة 
تعلیمات بهذا الث كل مط[ ”=ع0۸.N2n2ءإء۴”‏ فإن الق مة ۸ط[ سوف يتم تمرير ها 
کار ار ا الاجر او مدا م امات مجر اكل هتا الإأجراء اتخض بدن 
هذه القيمة للمتغير عu‏ ]اه ۷ع٠1.4۳.‏ 

قد تسأل نفسك سؤال لماذا لا أخصص القيمة إلى الحقل مره" مباشرة وأقرأها منه 
مباشرة عوضا عن كل هذه المتا عب. باختص ار هذا يت يح لك أن تتح قق من أن الق يم 
المخص صة للمتغيرات تتوا فق مع تص ميميك للفئة أم لاء فمتلا في الحياة اليوم ية لا يو جد 
ش خص يتكون ١‏ سمه أو يحتوي على أرقام» وعلى هذا يمك نك إضا فة تعليمات في الإجراء 
لتختبر القيم المدخلة وهل تتوافق مع فرضية أن الأسماء لا تحتوي على أرقام أم لا. 

في آلتدر يب التالئى سوف تقوم بإضا فة مجمو عة من المتغيرآت الإجراذ ية الفنة 


.Person 
.۴ء٣۹0۸ 7.قم بفتح المشرو ع السابق‎ 
Public Class Person öرابعلا قم بإضافة التعليمات التالية عقب‎ 


Private firstNameVvalue As String 


Private middleNameVvalue As String 


Private lastNameVvalue As String 


Public Alive As Boolean 


قم بإضافة التعليمات التالية عقب هذه التعليمات 


Public Property FirstName () As String 
Get 


FirstName = firstNameValue 
End Get 
Set (ByVal value As String) 
firstNameValue = value 
End Set 
End Property 


Public Property MiddleName () As String 
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Get 
MiddleName = middleNameVvalue 
End Get 
Set (ByVal value As String) 
middleNameValue = value 
End Set 
End Property 


Public Property LastName () As String 
Get 


LastName = lastNameValue 
End Get 
Set (ByVal value As String) 
LlastNameVvalue = value 
End Set 
End Property 


من القائمة ۴1٥‏ أُختر ۸11 .Save‏ 


56.2.الخصائص من النوع y[امRea40‏ وEgill writeOnly‏ 

في بعض الأحوال يتم ضبط الخاصية وتخصيص قيمة لها لا تتغير أثناء التشغيل. 
على سبيل المثال خاصية مثل رقم الموظف لا يجب أن تتغير» حيث يمكن أن تقرأ من خلال 
البرنامج لكن لا يسمح للبرنامج بتغيير ها أبدا. 

الكلمة الأساسية رام40 هه٠8‏ تستخدم لتعلم المجمع أن الخاصية للقراءة فقط أي لا 
يم كن تعديل ها أثناء التشغ يل. وإذا حاولت - بالخ طأ - آثناء كتا تك للبرنا مج أن تقوم 
بتخصيص قيمة للخاصية المعرفة رام40 ه٠۸‏ فإن محرر التعليمات سوف يعتبر هذا خطأ. 

لإنشاء خاصية من النوع رام10 هء۸ فإنك سوف تقوم بإنشاء متغير إجرائي كما 


يلي: 


Private IDValue As Integer 
ReadOnly Property ID() As Integer 
GEE 
ID = IDValue 
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End Get 
End Property 


لاحظ انه لا وجود للإجراء $6٤‏ في هذا التعريف. 
بالمثل» فإن الكلمة الأساسية رار ۷۲)00 تسمح للخاصية أن يتم تخصيصها ولكنها 
لا تىد مح لا مبرمج أن يقرأ قي مة هذه الخا صية» على سبيل المتال قد ير غب ال مبرمج في 
استخدام هذا النوع من الخواص في تمرير كلمة السر بين برامج مختلفة. 
وأيضا"نشاء خاصية من هذا النوع يمكنك أن تستخدم تعليمات مل التالية 
Private passwordValue As String‏ 
WriteOnly Property Password() As String‏ 
Set (ByVal value As String)‏ 
passwordValue = value‏ 


End Set 
End Property 


لاحظ غياب الإجراء )ع6. 

مثل هذا النوع من الخصائص - 1yم R210‏ و Wr) ە0n 1y‏ - یمکن استخدامه 
في امثل الطرق عندما يكون المستخدم ير غب في تحويل قيمة إلى أخرى» فعلى سبيل المثال 
خاصية العمر عند ما تقوم بتخصيصها ثم تعاود قراءتها بعد عام فإن القيمة المختز نة فيها 
سوف تكون خاطئة. ولعلاج هذه المشكلة في الفئة ٥ء۲٥۴‏ يم كن أن نض يف خا صيتين» 
الأولى Birth (ate‏ من النوع رام 0ء Wri)‏ والثاذية مع ۸ من النوع yام240ءR‏ حيث 
ترجع الخاصية مع الفارق بين قيمة الخاصية الأولى وتاريخ اليوم. 

لتفعل ذلك اثبع الخطوات التالية: 
8ءافتح المشرو ع السابق ۲0۸ع۴. 

اضف الس طر التالي ب عد مجمو عة الإعلانات (الس طور الأربعة الأول ڊ عد 


(Public Class Person 


Private birthYearVvalue As Integer 


قم بإضافة التعليمات التالية ي نهاية التعليمات التي أضفتها فيما سبق. 
WriteOnly Property BirthYear() As Integer‏ 
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Set (ByVal value As Integer) 
birthYearValue = value 
End Set 
End Property 


ReadOnly Property Age() As String 


Get 
Age = My.Computer.Clock.LocalTime.Year - 
birthYearVvalue 
End Get 


End Property 


من القائمة ٥ا۴‏ اختار Save Al]1‏ 


7.إضافة الطرق إلى الفئات 


في موضع سابق عرفنا أن لكل فئة مجمو عة من الطرق ءله0ط†ه التي تتصرف 
لها الفئة. في هذا القسم سنتعرف على كيفية تصميم الطرق وإضافتها إلى الفئات. 


1.الطرق الخاصة بالفئة 


يم كن ن نقدم الطرق الخا صة بالفئات أذ ها روتينات فرع ية وممن†uاهإطاں؟‏ أو 
وظائف ءام ں۴ داخل الفئة. فعلى سبيل المثال الفئة ٤ء۸‏ يمكنها أن تحتوي على 
طريقة مها ]هعم ۸R‏ لإعادة لتحديت القيمة الحدية للحساب» كما يمكذها أن تحتوي على 


وظيفة CurrentBalance‏ لاسترجاع هذه القيمة الحدية للحساب. التعليمات التي تمثل هذه 
الطرق يبينها ما يلي: 


Public Sub Recalculate () 
' add code to recalculate the account. 


End Sub 


Public Function CurrentBalance (ByVal AccountNumber As 


Integer) As Double 
' add code to return a balance. 


ERd FüRêELOoR 


على حين أن معظم الطلاق داخل الفئات هي من النوع ال عاطں ۴ء فإن المبرمج قد 
يرغب في بعض الأحيان أن يقوم بإنشاء طرق تعمل داخل الفئة فقط فمثلا الفنةَ 01١٥م‏ قد 
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تحتوي على طريقة لحساب عمر العميلء وفي هذه الحالة يقوم المبرمج بتعريف هذه الطريقة 
بالكذمة الأساسية مه۴1۷ حتى لا يمكن استدعاءها من خارج الطريقة. التعليمات التالية 
تستخدم لإنشاءِ طريقة من النوع Private‏ داخل الفئة. 


Private Function CalcAge (ByVal year As Integer) As 
TIHEOGSGEÊ 


CalcAge = My.Computer.Clock.LocalTime.Year - year 


End Function 
يم كن لا مبرمج لاحقا أن يقوم بتغي ير التعليمات ال تي تس تخدم في حس اب قي مة‎ 
عه ومع ذلك لن تتأثر التعليمات التي تستخدم الطريقة مع ۸ء]1ه). وهذا الوضع هو‎ 
الد عبير الأم ثل عن وا حد من أ هم مفاه يم البرم جة الموج هة للكائنات و هو التغل يف‎ 
.Encapsulation 
في التدريب التالي سوف نقوم بإضافة طريقتين إلى الفئة رمءإه۴» الطريقة الأولى‎ 
من النوع ال 1ں" استعادة أسم العميل والثاذية وظيفة من النوع مه۴1۷ لحساب سن‎ 
العميل:‎ 


9.افتح المشرو ع السابق ۲۹0۸ء۴. 


أ ضف الس طور التال ية ع قب تعريفات المتغيرات ال تي أضفنا ها في القس م 


السابق: 
Public Function FullName () As String‏ 
If middleNameVvalue <> "" Then‏ 
FullName = firstNameValue & " " & middleNameVvalue‏ 
lastNameValue‏ & 7 
Else‏ 
FullName = firstNameVvalue & " " & lastNameVvalue‏ 
End If‏ 


End. FURCELOR 


Private Function CalcAge (ByVal year As Integer) As 
TIHTeGeE 


CalcAge = My.Computer.Clock.LocalTime.Year - year 


End .FüREtILOon 


قم بتعديل خاصية ٠ع‏ لتصبح كالتالي: 
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ReadOnly Property Age() As String 
SE 


' Age = My.Computer.Clock.LocalTime.Year - 
birthDateVvalue 


Age = CalcAge (birthYearValue) 
End Get 
End Property 


Save Al1 اختار‎ ۴٥ من القائمة‎ 


57.2.مفهوم الحمل الزائد gم0ver104di‏ 
في هذا القسدم سوف نتعلم كيف يمكذنا إضافة أكثر من شكل من نفس الطريقة في 
الفئة الواحدة. في التدريب السابق قمنا باضافة الطرق إلى الفة و0ویإء۴»› في بعض الحالات 
يجب أن يأخذ المبرمج في اعتباره أن الطريقة لابد أن تستجيب لأنماط مختلفة من المدخلات 
وبالم ثل يمكن أن تذتج أنماط مختلافة من المخرجات. وفي هذه الحالة ياجأ المستخدم مفهوم 
الحمل الزائد عمزلهه1إ م0۷ حيث يقوم بتصميم الفئة - أي كتابة التعليمات الخاصة بها - 
عدة مرات» بحيث تكون كل مرة متسقة مع المدخلات المختلفة المتوقعة. 
فيما يلي تعليمات لح مل زائد لطريقة واحدة مرڌين بحيث تكون مرة تة بل مدخلات 
من النوع النصي وفي المرة الثانية تقبل مدخلات من النوع الرقمي الصحيح. 
Public Sub TestFunction (ByVal input As String)‏ 
MsgBox (input)‏ 
End Sub‏ 
Public Sub TestFunction (ByVal input As Integer)‏ 


MsgBox (CSEFE (i1NPpuUE) ) 
End Sub 


عند ما ير غب المبرمج في استدعاء هذه الطريقة من داخل برنامجه»ء يتو قف تنذيذ 
الطريقة على نوع البيانات المارة إليهاء فإذا تم تمرير بيانات نصية يتم تنفيذ الطريقة الأولى 
وي تم طبا عة ر سالة تحتوي على البيانات النص ية المدخلة للطري قةء أ ما إذا تم تمر ير عدد 


صحي» فإنه سوف يتم تحويله بداية إلى نصي ثم يتم طباعته في رسالة. 


يمكن للمبرمج عمد العديد من الطرق تحت مظلة مفهوم الحمل الزائد. 
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سنبين في التدر يب التالي كيف يمكذنا إضافة طريقة بمفهو مي حمل زائد في الفئة 
.Person‏ 
0.افتح المشرو ع السابق ۲0۸ع۴. 
أضف السطور التالية قبل ویھا€ dہ٤:‏ 


Public Function MiddleInitial () As String 
MiddleInitial = Left$ (middleNameValue, 1) 


End: FuRéELOn 


Public Function MiddleInitial (ByVal period As Boolean) 
As String 


MiddleInitial = Left$ (middleNameValue, 1) & "." 


End: FuURéEELOnN 


من القائمة ۴٥‏ اختار Save Al1|‏ 
8. إضافة حدث للفئة 


تعلمنا فيما سبق أن لكل كائن خصائص وطرق وأحداث» وعرفنا كيف يمكن تصميم 
وإضافة الخصائص والطرق إلى الفئة. في هذا القسدم نتعرض على أ ساليب تصميم وإضافة 
معالجات الأحداث إلى الفئات. 


1 لاعلان عن الأحداث وإنشاءها 

هناك خطوتين يجب أن يلزمهما المبرمج عند إضافة حدث على الفئة. الأولء يجب 
أن يقوم بالإعلان «0ناهإهاءم عن الحدث» ثانياء إنشاء الحدث. إنشاء الحدث يعني أن يعلم 
ارمح النج عن ورد ها الت اة خت إلى ال قرح المعرمج اعلان لحنت 
عن طريق الكلمة الأساسية ٤ء۷‏ . وهذا يعني أن الكائن المتال على الفئة يمكنه أن يستخدم 
الحدث المعلن. فعلى سبيل المثال يم كن أن نض يف الحدث 4عهاںءاه٣مع۸‏ للفئة 
rs‏ ه۴ ثم ننشاً الحدث في الطريقة مع Aء[ه٥»‏ وعند استدعاء هذه الطريقةء يمكن إضافة 
تعليمات إضافية مع عملية حساب العمر. 


1ءافتح المشروع السابق ۲0۸ع۴. 
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أضف السطر التالي فوق مجموعة تعريفات الخصائص: 
Public Event AgeCalculated (ByVal Age As Single)‏ 
هذا السطر يمثل الإعلان عن الحدث. 


استبدل السطور التي تحتويها الطريقة مع Aء[ه‏ بالسطور التالية: 


Private Function CalcAge (ByVal year As Integer) As 
Integer 


Dim Age = My.Computer.Clock.LocalTime.Year - year 


RaiseEvent AgeCalculated (Age) 


CalcAge = My.Computer.Clock.LocalTime.Year - year 


End: FURCEE LOT 


من القائمة ٥ا۴1‏ اختار Save Al]1‏ 


2 . تكوين معالج الحدث 


إذا كان على المبرمج أن يكتب تعليمات تستجيب لحدث ما - أي يكتب معالج حدث 
Event hale‏ = عند ذلك يجب الربط ما بين الحدث ومعالج الحدت. ويستخدم قي ذلك 
الكلمات المحجوjزة Event Handler ةزjgجحnll ãnSll .Add Handler yİ Handles‏ 
مع لا مرت أن رظ انت دام أقاه اتمم لى خن فر لكام الكجرزة 
مه1 بربط الحدث بمعالج الحدث أثناء التشغيل. هذه الكلمة المحجوزة ومإلم ه1 يمكن 
إضافتها إلى نها ية أي رويتن فر عي لتقوم بذفس عمل الحدث. فعلى سبيل المثال» يمكن أن 
نضيف حدث با سم لعهاں‌1ه ٣‏ عع الذي يمك نه ا خذ أي عدد صحيح» وكذلك الروڌين 
الفرعي سيقوم بأخذ هذه القيمة الرقمية الصحيحة. 


Private Sub personl AgeCalculated(ByVal Age As Integer) 
Handles personl.AGeCalculated 


الکائن ۲0۸1ءم لابد من إنشاءہ باستخدام الكلمة المحجوزة واہ ٤۷‏ ط)۷ ومن ثم 
يمكن استخدام معالج الحدثٹ .AgeCalculated‏ 
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9 اختبار الفئات 

فيما سبق قمنا بإنشاء الفئة رمءإ٠۴‏ وأضفنا إليها الخصائص والطرق والأحداث» في 
هذا القسم سوف نتعلم كيف يمكننا إنشاء كائن مثال للفئة ومءإه۴ وذلك من أجل أختبار الفئة 
التي قمنا بتصميمها. 
11. إنشاء كائن مثال على الفئة 

بالر غم من عد إدراك نا لهذه الحقي قةء فإذ نا ك نا نتعا مل مع فئات طوال التدريبات 
الابق» فالنماذج وعناصر التحكم ما هي إلا فئات في واقع الأمر» وعندما نقوم بسحب أي 
من عناصر التحكم ونرميه فوق النموذج» فإننا نقوم بإنشاء مثال على فئته. 

يمكذ نا أن ننش ئ مثال عن أي كائن عن طر يق التعليمات وذلك با ستخدام الكل مة 
المحجوزة سعN.‏ فمتلاً عوضاً عن سحب المفتاح Butt‏ ورم یھ یمکذ نا أن نس تخدہ 
التعليمات التالية: 


Dim aButton As New Button 

وحتى يمكننا أن نختبر الفئة 0ء۴۲ فإنه سيكون علينا إنشاء مشروع جديد ثم عمل 

إشارة مرجعية ع٥م٠إءfء R۸‏ للفنة ١0ء٠۴‏ ومن ثم نستطيع استخدامه في المشروع. ولذلك 
سوف نقوم بالإجراءات التالية: 


2۔افتح المشرو ع ۲۹0۸ع۴. 
من القائمة ۴11٥‏ أنقر .New Project رقi مۃû Ad‏ 
Îختlر Window Application‏ . 


في الخانة 4۳٠‏ أعطي مشرو عك الجدید اسم هو 0۸۲ء۴۲ ثم أذقر 
المفتاح .Ok‏ 


.Perso¬ 1es أختار المشرو ع‎ Solution Expo في النافذة‎ 
.Set as StartUp Project فق‎ رقنİ‎ Prهز‎ ec من القائمة‎ 
.Add Reference رڙlتخ|‎ Project من القائمة‎ 


تظهر نافذة عءعرءإءfعR‏ ۸44 المبينة في شكل 9-76. 
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في النافذة ۸٥۲٥٥8‏ ۸44 أنقر فوق التبویب ءاcعز٥إ۴.‏ 
أختر ۴٥٣٥۸‏ تم أنقر المفتاح .0k‏ 


أضف التعليمات التالية عقب ويها 1cاا۲u‏ مباشرة. 


Add Reference 


سل 
NET ZOM Projects | Browse | Recent‏ 


Lormponent Mame Yersion Runtime 


7.0.3300. 1.1.4322  CAProgram FilBsMicro... 
7.3300. 1.1.4322  CAProgram FilesMicra... 
7U 1.1.4322 LîProgram FilesMicro... 
Aspe MMILEXE A000 YA OSTA CP NAIMOOWS MicroSD... 
LppEodeProyvider 8.0.0.0 YA. Û.SUFAF CR Program FilesMicra... 
Lrystal Reports for NET... 10.5.37... YA OSOFAF Ci Program Filespusin,.. 
LrystalDecisions. Crystal... 10.5.37... YA OSOFA” CNProgram Filespusin,.. 
LrystalDecisions, Report... 10.5.37... YA OSOFA” CProgram Filespusin,.. 
LrystalDecisions. Shared  10.5,37U.,, YA DOSOFAr CProgram Filespusin,.. 
LrystalDecisions, YSDesi,.,. 10.5.37, YA DOSOFAEr CProgram Filestpusin,.. 
LrystalDecisions,. web 1IUS.3AU.., YADSU LîProgram Files"Busin... 
CrystalDecisions. winda... 10.5.2370... YAD. CiAProgram Files"pusin... 
rsramp mgd 2.0.0.0 8 CIM DOS MicrOSORT,.. 
CustmMarshalers 2.0.0.0 .0. LC MIYDOWSYYicrOSOR... 
10.0.450... .0. GCAProgram FilesMicro... 
10.0.4AN... AFM CAProaram FilastMirrn... 


OK Cancel 


Add Reference ةذفاiلl‎ :76-9 شكل‎ 


Dim personl As New Person.Person 

هذا السدطر يعلن عن مال جديد عن الفئة رمءإه۴. وقبل أن تسال لماذا استخدمنا 

کل مة ٥٥ی٣عم‏ مرڌ ین ب عد الكل مة المحجوزۃ )٥wW‏ فالأولی تم ثل ۴٥٥۸.۷٥‏ الوحدة 
النمطية للفئةء بينما الثانية تمثل الفئة وموإء۴ داخل هذه الوحدة النمطية. 


.Sava A۸11 أختار‎ ۴11٥ من القائمة‎ 
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2 اختبار الفئة 

في المرحلة التاذ ية نقوم بإاضا فة واج هة ١‏ ستخدام ٥٥و۴‏ إع)م] إعء ل وتعليمات 
تس تخدم الفئة 01ءإ6. سوف نقوم بإضا فة صناديق نصوص ح تى يم كن للمس تخدم أن 
وصندوق تأشير لإدخال خاصية م۸11۷ ومفاتيح لاختبار الفئات. 


23.من النافذة 0re۲اExp‏ uti0onا‏ أنقر فوق النموذج ۴٥٣۳٣1‏ تم |آختر .Designer‏ 


4. قم بس حب أرڊ عة صناديق نص وص 1٥×180×‏ و صندوق iİa‏ ڍر CheckBox‏ 
ومفتاحین ١٥ا8‏ وأرمھم فوق النموذج 1٣۲إ٥۴.‏ 

5.أنقر فوق 1١٥)اں8‏ ثم أنتقل إلى نافذة الخصائص» قم بضبط قيمة الخاصية 1٠×٤‏ 
لتصبح .Update‏ 

6.أنقر فوق 80١12‏ ثم أنتقل إلى نافذة الخصائص» قم بضبط قيمة الخاصية 1٠×‏ 
lتصيح .Full Name‏ 

7.ادقر مردين فوق المفتاح مهلم تم أكتب في معالج الحدث Button1 Click‏ 
التعليمات التالية: 

With personl 
.FirstName = Textbox1. Text 


.MiddleNamé = Téxtbox2 . Text 


.LastName = Textbox3. Text 


.BirthYear = Textbox4. Text 

.Alive = CheckBox1.Checked 
End With 
لعل القارئ يلا حظ أ نه عند ما يقوم بكتا بة التعليمات فإن الخا صية موم ع؟111م†ہ1‎ 
Visual Basic.NET تتصرف مع الفئة 0ء٣٥۴ كأنها من الفئات المتعارف leيl في‎ 

2008. 
أذ قر فوق المفتاح الثا ني وأك تب التعليمات التال ية في معالج الحدث 
:Button2 Click‏ 
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' Test the Ful lIName method. 


MsgBox (person1.FullName) 


' test the Age property and CalcAge method. 
MsgBox (CStr (personl.Age) & " years old") 


' Test the Alive property. 


If person1.Alive = True Then 

MsgBox (person1.FirstName & " is alive") 
Else 

MsgBox (person1.FirstName & " is no longer with us") 
End If 


أنقر فوق المفتاح ۴5 لتنفيذ البرنامج. 

في الصندوق الأول قم بكتابة أسمك الأول. 

في الصندوق الثاني أكتب اسمك الأوسط. 

في الصندوق الثالث أكتب أسم العائلة. 

في الصندوق الرابع اكتب عام ميلادك. 

أنقر فوق الصندوق التأشير. 
أنقر فوق المفتاح ٥ةل‏ م[ لتزويد الفئة بالخصائص . 
أنقر فوق المفتاح .Full Name‏ 


تظهر ثلاتة ر سائل الأولى عن الاسم الكامل والثانية عن العمر والثالثة عن الحالة 


من القائمة ۴11٥‏ أختر .Save A11‏ 
3 اختبار التحميل الزائد للفئات 
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أض بط الخا صية ا×] للمفتاح الأول لتصبح ۷1١‏ وللمفتاح الثاني لتصبح 
Without‏ . 


أذ قر مرت ين فوق المفتاح W1‏ وأ ضف التعليمات التال ية للحدث 
:Button3 Click‏ 


MsgBox (person1.FirstName &4 " " &‏ 
personl1l.MiddlelInitial (True) & " " & personl1l.LastName)‏ 
أذ قر مرت ين فوق المفتاح ۷٤10١٤‏ وأ ضف التعليمات التال ية للحدث 
:Button4 Click‏ 


MsgBox (person1.FirstName & " " & person1.MiddlelInitial 
& " " & personl.LastName) 


أنقر فوق المفتاح ۴5 لتنفيذ البرنامج. 


في الصندوق الأول قم بكتابة أسمك الأول. 
في الصندوق الثاني أكتب اسمك الأوسط. 
في الصندوق الثالث أكتب أسم العائلة. 
في الصندوق الرابع اكتب عام ميلادك. 
أنقر فوق الصندوق التأشير. 
أنقر فوق المفتاح ٥ةل‏ م[ لتزويد الفئة بالخصائص . 
أنقر فوق المفتاح 1). 
تظهر رسالة تحتوي على أسمك وعلامة بعد الاسم الأوسط 
أنقر فوق المفتاح Withou‏ . 
تظهر رسالة تحتوي على أسمك وبدون علامة بعد الاسم الأوسط 
من القائمة ۴11٥‏ أُختر ۸11 veهS.‏ 
4 اختبار عامل الحدث 


9.أضف العبار ة التالية قبل الإعلان عن المتغير ١ه0ءإءم‏ (أي بعد sئھاC٣‏ 1cاPub).‏ 
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WithEvents personl As New Persons.Persons 


Private Sub personl AgeCalculated(ByVal Age As Integer) 
Handles personl1l.AgGeCalculated 


If Age > 18 Then 


MsgBox ("You have been over 18 for " & Age - 18 &™" 
years.") 


Else 

MsgBox ("You will be 18 in " & 18 - Age & " years") 
End If 
End Sub 


أنقر فوق المفتاح ۴5 لتنفيذ البرنامج. 

في الصندوق الأول قم بكتابة أسمك الأول. 

في الصندوق الثاني أكتب اسمك الأوسط. 

في الصندوق الثالث أكتب أسم العائلة. 

في الصندوق الرابع اكتب عام ميلادك. 

أنقر فوق الصندوق التأشير. 
أنقر فوق المفتاح ٥ةل‏ مآ لتزويد الفئة بالخصائص . 
أنقر فوق المفتاح .Full Name‏ 


وتليها رسالة تبين بكم تزيد عن الثامنة عشر» أما إذا كنت دون الثامنة عشر» تظهر رسالة 
تبين الفارق بين سنك والثامنة عشر» تم تظهر رسالة تبين أنك دون الثامنة عشر. 


.Save A۸11 أُختر‎ ۴1٥ من القائمة‎ 


Inheritance ةڎlروİا1.60‎ 


الديارات كفئةء تڌفق جميع السيارات في الخصائص والوظائف والأحدات» لذلك نذظر لها 


180 


الا رة باسنخدام 2008 isua1 Basic. N٤7‏ ۷ ¬ وسا مالدین عمد 


كفئة واحدةء لكن هناك بحعض السيارات التي لها خصائص فريدة كتلك السيارات التي لها 
سقف قابل للطي» هذه السيارات تتفق مع جميع السيارات الأخرى في الخصائص والوظائف 
والأحداث» لكنها تزيد عنها في سقفها القابل للطي. إذا نظرنا إلى هذا الموقف من وجهة نظر 
الفئات» فذحن لن نكون في حاجة أن ننشا فئة جديدة بالكامل لتمثل مجمو عة السيارات ذوات 
السقف القابل للطي» بل سوف ننشأ فئة متفر عة عن الفئة الأساسية للسيارات ترث عن الفئة 
الأم جم يع الخص ائص والطرق والأحداث المعر فة في هذه الفئة الأم» إضا فة إلى مجمو عة 
جديدة من الخص ائص والأحداث والوظائف التي تم ثل تم يز هذه الفئة عن الفئة الأم. يطلق 


على هذه المقاربة في البرمجة اسم الوراثة عم .Inhe r!)‏ 


1 الوراثة من فنة موجودة 
الكلمة المحجوزة و†زمطم] تستخدم لإعلان فئة جديدة يطلق عليها أسم الفئة المشتقة 
ئ Derived‏ ترت فئة موجودة يطلق علي ها |١‏ سم الفئة الأ ساسية وsيها٣‏ عيه8. 
التعليمات التالية تبين كيف يمكن استخدام الكلمة المحجوزة ازا مطہ!: 
Class DerivedClass‏ 


Inherits BaseClass 


End Class 

الفئة الجديدة ووھا ٥1٤‏ ۷]إع5 یم کن إنشاء کائنات عذ ها الح ين» و سوف يكون 
لكائنات ها جميع خص ائص وو ظائف وأحداث الفة ووه[٣€عوه8.‏ لنضرب مثلاً حتى يمكذنا 
تصور الفكرة التي نناقشها. فلنتصور أننا نريد أن ننشأ فئة تمثل لاعبي كرة القدم» لكن لاعبي 
كرة القدم ل هم كل الخص ائص والأحدات والوظائف لأفراد الفئة وموإه۴ ال تي أنشأد ها من 
ق بل. لذلك فلا دا عي لأن نقوم بإنشاء فئة خا صة جديدة وإ ره]۴؛ ل كن يمكذ نا أن ننش أ هذه 
الفئة كفئة مشتقة أو منحدرة من الفة و0وإء۴. 

حتی نقوم بهذا العمل لنتبع الإجراءات التالية: 
0۔أفتح المشروع 0۸یإء۴. 

أنقر فوق المشرو ع ۲01۸ء۴ في llلliفذة .Solution Explorer‏ 


.Add Class أختار‎ ۴٥ز‎ e٤ من القائمة‎ 


في النافذة إ٥ New‏ ۸44 أكتب ءإمرها۴ في الخانة مصجN.‏ 
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انقر المفتاح إل ۸. 
طا وحدة ذ لية جديدة. 
في نافذة محرر التعليمات أضف التعليمات التالية: 


Inherits Persons 


أضف بعد هذه السطر التعليمات التالية التي تعرف خاصيتين جديدتين : 


Private numberVvalue As Integer 


Private positionValue As String 
Public Property Number () As Integer 
Gêl 
Number = numberValue 
End Get 
Set (ByVal value As Integer) 
numberValue = value 
End Set 
End Property 
Püblic Propérty Position () AS String 
Gê 


Position = positionValue 
End Get 
Set (ByVal value As String) 
positionValue = value 
End Set 
End Property 


.Save ۸11 أختر‎ ۴11٥ من القائمة‎ 
اختبار الفئة المشتقة‎ 2 
.New Project رlتخ‎ lin, Add أختر‎ ۴11e 1.من القائمة‎ 
.Windows Application رlتخİÎ‎ Add New Project ةذفlill في‎ 


. Player est أكتب‎ N4 في الخانة‎ 
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انقر ڄ0. 

يظهر نموذج جديد 
أنقر فوق المشرو ع e‏ ۲١ءمyه۴1‏ في liذة .Solution Explorer‏ 
من lllأnة .Set as Stratup Projetc ڙlتخÎ Project‏ 


.Add Reference رlتخİ‎ Project ةnئlقلا من‎ 


في النافذة Reference‏ ۸44 انقر فوق التبویب sاءعزهإ۴‏ وأختار Persons‏ 


0k ٹہ‎ 


.Public Class Form1 


yerl As New Persons.Players 


yer2 As New Persons.Players 


هذين السطرين يعلنان عن كائنين جديدين. 


Dim pla 


Dim pla 


أذقر مرڌين فوق النموذج الموجود في المشروع ا١‏ ۲1ءره۴1 لتظ هر نافذة 


أضف التعليمات التالية لعامل الحدث 044ا :۴٥٣۲۳٣1‏ 


With player1 
.FirstName = "Andrew" 
.LastName = "Cencini" 
.Number = 43 
.Position = "Shortstop" 
End With 
With playerz2 
.FirstName = "Robert" 
.LastName = "Lyon" 
.Number = 11 
POSTELORN = TEatceher™ 
End With 
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أضف مفتاحين 810١‏ للنموذج. 

أختر المفتاح الأول وقم بضبط الخاصية ۲٠×۲‏ له لتصبح 84 ۸۲. 
أختر المفتاح الأول وقم بضبط الخاصية 1٥×‏ له لتصبح (e>)‏ 0۸. 
أنقر مرتين فوق المفتاح 84 ۸1 لتظهر نافذة محرر التعليمات. 
أضف التعليمات التالية للحدٿ :butt0¬1 C11)‏ 


MsgBox (player1.POosition & " " & playerl.FullName & ", 
#" & CStr (player1.Number) & " is now at bat.") 


لا حظ أذنا ا ستخدمنا الطريقة مه ۴11 بالر غم أذها لم يتم أضافتها إلى الفئة 
1a‏ وذلك لأنذ ها مورو ثة عن الفئة «هء۲م۴ الفئة الأ ساس التي انحدرت مذها الفئة 
.Players‏ 
أضف للحدث عء1ا€_2,٥)اں‏ التعليمات التالية: 


MsgBox (player2.Position & " " & player2.FullName & ", 
#" & CStr (player2.Number) & " is on deck.") 


من القائمة ۴11٥‏ أُختر ۸11 veهS.‏ 
أنقر المفتاح ۴5 لتتفيذ البرنامج» ثم أختبر كل مفتاح على حده. 
1.60.3جjgl‏ eÎllع¦ضslء Overriding Members‏ 
سبق أن أشرنا على كلمة عضو إمطا صم تعني مكونات الفئة من خصائص وطرق 
وأحداث. في هذا القىد م سنتعلم ك يف يم كن أن نتجاوز أ حد أعضاء الفئة الأ ساس. ونع ني 
بالتجاوز تغيير عمل طريقة أو خاصية منحدرة عن الفئة الأساس في الفئة المشتقة. 
فمثلا يمكن أن ننشئ فئة جديدة للشاحنات و)عںإ] منحدرة من فئة السيارات وإهC»‏ 
ولكن في الشاحنات تكون المحركات تعمل بالديزل» لذا فغن خصائصها سوف تختلف عن 
تلك العاملة في السيارات العاديةء لذلك يلزم هنا تغيير الطريقة التي تصف عمل المحرك أو 
في عبارة أكثر مهنية تجاوز ع لام0۷ هذه الطريقة. 
افتراضياًء لا يم كن تجاوز الطرق والخص ائص المنحدرة عن الفئة الأ ساس» وحتى 


يتمكن المبرمج من تنذيذ تجاوز عن عضو ما في الفئة المشتقةء لابد أن يكون هذا العضو 
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قا بل للتجاوز م1طه لام0 في الفئة الأ ساس وذلك بإعلا نه كذلك بوا سطة الكل مة 
المحجوزة ٥1اه‏ ل1٣]‏ م0۷ كما هو مبين في التعليمات التالية: 


Public Overridable Property EngineType As String 


Public Overridable Sub StartEngine (ByVal EngineType As 
SEEING) 


وعند إنشاء الفئة المشتقةء فإن الأعضاء الذين أشير إليهم كأعضاء قابلة للتجاوز في 
الفئة الأ ساس» يم كن تعديل هم با ستخدام الكل مة المحجوزة وم لا٣]‏ م0۷ كما هو مبين في 
التعليمات التالية: 


Public Overrides Property EngineType As String 


Public Overrides Sub StartEngine (ByVal EngineType As 
StEELAS) 


سوف نقوم في التدر يب التالي باختبار هذه المفاه يم عن طر يق تعد يل الطري قة 
N ane‏ ]۴1 لتقوم بإرجاع الاسم بدون الاسم الأو سط ومضافا إليه رقم اللاعب. لنقوم بهذا 
لنتبع الإجراءات التالية: 
2.. في النافذة Solution Exp]0إ e۲‏ أختر ۷b.«مءإمم‏ ثم أختر مله من القادمة 
View‏ . 

في نافذة محرر التعليمات قم بتعديل تعريف الطريقة ]1ن۴ كما يلي : 

Public Overridable Function FullName () As String 
أختر ط۷v.إ۴1aye ثم أختر مله من القاذمة‎ Solution Expo re في النافذة‎ .3 


. View 
4.-.أضف التعليمات التالية إلى تعليمات هذه الفئة:‎ 


Public Overrides Function FullName () As String 


FullName = FirstName & " " & LastName & ", #" & 
numberVvalue 


End Function 
ثم أختر مله من القاأمة‎ ۴اayمr٣‎ est أختر‎ Soاution‎ Exp10r e۲ في النافذة‎ .5 


. View 
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6.في نافذة محرر التعليمات» قم بتعد يل عامل الحدث )عنا۸1_C٥tا8‏ ليصبح كما 
يلي: 


MsgBox (player1.Position & " " & player1l.FullName & " is 
now at bat.") 


7. في نافذة محرر التعليمات» قم بتعد يل عامل الحدث )عنا۸2_C٥٤ا8‏ ليصبح كما 
يلي: 


MsgBox (player2.Position & " " & player2.FullName & " is 
on deck.") 


من القائمة ۴1٥‏ أُختر ۸11 eمSav.‏ 
أنقر المفتاح ۴5 لتتفيذ البرنامج» ثم أختبر كل مفتاح على حده. 
1 استخدام المجموعات في إدارة الكائنات المتعددة 
في قسم سابق من هذا الكتاب تعرضنا لاستخدام المصفوفات لإدارة مجموعات من 
المتغيرات. بذ فس هذه الطري قة يمك نك ان ي تم إدارة مجمو عة من الكائنات با ستخدام 
المصفوفات» لكن 2008 ١٤0.Nزوه8‏ 1هuء¡۷‏ يعرض طريقة أخرى لإدارة مجموعات 
الكائنات من خلال كائن مخصوص هو كائن "المجمو عة ر10†ءع][]1ه٥"‏ والممكن استخدامه 
لاختزان أو استرجاع مجموعة كائنات في آن واحد. 
إلى هذا العنصر/الكائن من خلاله. إضافة على ذلك فعن كل عنصر في المجمو عة له مفتاح 
وه و هو عبارة عن قيمة حرذية يم كن أن تستخدم لتعيين هذا العنصر. ميزة ا ستخدام 
المفتاح أن المبرمج لا يحتاج أن یستخدم الدليل >ملم] للوصول الى العنصر بل عوضاً عن 
ذلك يمكنه أن يستخدم أسم ذي معنى. 
1 إنشاء المجموعة 
المجموعات تعتبر مهمة لامبرمج الذي يستخدم عدد كبير من الأمثلة الدالة على فئة 
معينة» فعلا سبيل المثال بالنسبة للفئة Players‏ يحتاج المبرمج على عدد قد ډبغ عشر ین 
مثال على هذه الفئة عند عمل برنامج يشير إلى فر يق كرة قدم. لحل مثل هذه المسالة ياجأ 
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المبرمج إلى استخدام المجموعات» وأول خطوة حتى يقوم با ستخدام المجموعات هي إنشاء 
مجمو عة جديدة» ولأداء هذا المهمة يحتاج إلى تعليمات مثل التالية: 
Dim baseballTeam As New Collection‏ 
بمجرد إنشاء المجمو عة يم كن لا مبرمج أن يقوم با ستخدام الطري قة ل۸ لإضا فة 
كائن إلى المجمو عة والطريقة م80۷ لحذف كائن من هذه المجمو عة. عند إضافة كائن 
إلى المجمو عة با ستخدام الطريقة ل۸ يحتاج المبرمج إلى تخصيص الكائن الذي سوف 
يضاف إلى المجمو عة ويقوم بتحد يد القي مة الحرذ ية المس تخدمة كمفتاح ك ما هو مبين في 
التعليمات التالية: 
baseballTeam.Add (playerObject, "Player's Name")‏ 
أما عند حذف الكائن من المجمو عة فعلى المبرمج أن يستخدم المفتاح لتعيين الكائن 
المطلوب حذفه من المجموعة كما هو مبين في التعليمات التالية: 
baseballTeam. Remove ("Player's Name")‏ 
في التدر يب التالي سوف نقوم بإضا فة كائذين من الفئة ءإمره]آ۴ ثم نقوم بإنشاء 
مجمو عة ونضيف إليها اللاعبين وسوف نستخدم موقع )وم۴ اللاعب في الفريق بمثابة 
المفتاح الخاص بالكائن في المجموعة. 


8ء افتح المشروع السابق 
من النافذة lution Explore‏ آختار المشروع ءھ۴1 ثم آختار 
النموذج ۴٥۲1.۷‏ ثم أنقر فوق مفتاح .C0de‏ 
أضف التعليمات التالية بعد الإعلان عن لكائن ۲2عرهام. 


Dim player3 As New Persons.Players 


Dim player4 As New Persons.Players 


DIM team -AÃS: Nw CoLLection 


أضف التعليمات التالية للحدث 044ا :۴١٥۲۳٣1‏ 


With player3 
.FirstName = "Eduardo" 
.LastName = "Saavedra" 


.Number = 52 
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:POSIELORn = TPFIESE Basê" 


End With 


With player4 
+ ELEFStName 3 Karl" 
.LastName = "Jablonski" 


.Number = 22 


:POSILLOR = TDPILEEGRESE"™ 


End With 


Lteam.Add (playerl, layer] .Position) 


team.Add (player2, player2.Position) 


P 
P 

team .AdI{player3y; player. POSTEO) 
P 


team.Add (player4, player4.Position) 
تم أختار‎ Payers أختار‎ Solution Expاlore۲ من النافذة‎ 


.Des¡1g" €۲ وانقر فوق‎ ۴r. 
.٥Co0mb0 80x عنصر تحکم من النو ع‎ ۴٥۲۳٣1 اضف إلی النموذج‎ 
.... في النافذة كع )مه۴ اختار الخاصية "ط)1 ثم انقر فوق‎ 


أكتب القيم التالية في المحرر الذي سوف يظهر 
Keeper‏ 


Left Wing 
Right Wing 


Attacker 
أذقر مردين فوق ال ×080ط.K0 لتفتح محرر التعليمات الخاص به»ء ثم‎ 
:ComboBox1_SelectedIndexChanged أضف التعليمات التالية لنحدث‎ 
Dim SelectedPlayer As Persons.Players 


SelectedPlayer = team (ComboBoxl1.SelectedItem) 


MsgBox ("Playing " & ComboBox1.SelectedItem &4 " is " & 
SelectedPlayer.FullName & "!") 
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أنقر ۴5 لتنفيذ البرنامج. أختر من ال ×080ط ٥٥٥‏ موقع اللاعب» تعرض 
بيانات اللاعب الذي يحتل هذا الموقع في رسالة. 


For Each Next قذiحil1.61.2‎ 


في التدر يب الس ابق قم نا بإضا فة ق يم ال - ١10)زوم"‏ يدوي في عنص ر التد كم 
>0 08طاصmه€0.‏ هذه الطريقة قد تبدو سهلة ذكن عند التعامل مع المجموعات التي تم ثل 
كائنات حقيقية تصبح هذه الطريقة مستحيلة وغير عملية بالمرة. لكن الطريقة المثلى للتعامل 
مع إضافة الكائنات في المجموعات هي استخدام حلقة مخصصة لذلك هي حلفقة إcھ٤غ F۴0۲‏ 
.N ×)‏ التعليمات التالية تستخدم هذه الحلقة لأداء مهمة إضافة الكائنات إلى مجموعة: 
Dim player As Persons.Players‏ 
For Each player In team‏ 


ComboBox1.Items.Add (player.Position) 
Next 


في هذه التعليمات يلعب الكائن player‏ دور العداد في حلفَة )×عN"‏ - ۴0٣۲‏ التقليدية 
فتكون التعليمات تقول لكل كائن player‏ في المجمو عة ر وع] نفذ عملية إضافة. 
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أسس برمجة عناصر التحكم 


في القسم السابق تناولنا كيف يمكن برمجة الفئات تم مجها في أكثر من تطبيق» وهو 
ما يقلل المجهود والوقت اللازم لعملية تطو ير التطبيق. عناصر التحكم هي في وقاع الحال 
مجرد فئات يم كن إعادة ا ستخدامها في العديد من المشروعات. في كذير من الأحوال جد 
المس تخدم نفس ه يحتاج أن يقوم بتص ميم ذات واج هة الا ستخدام في أك ثر من مشروع» كأن 
يستخدم عنصر تحكم من الفئة ×0 ٠١×8‏ لتلقي الاسم الأول وآخر من نفس الفئة لتلقى اسم 
العائلةء ثم يقوم بد مج هذين الاسمين للحصول على الاسم الكامل. في مثل هذه الحالة يكون 
من الأفضل لو أن هناك عنصر تحكم يستطيع المبرمج إعادة استخدامه في تطبيقاته دون أن 
یعید کتابته کل مرة. 

من هذا المد خل نقدم مفهوم برمجة عناصر التحكم حيث يمكن الذظر إلى عناصر 
الت كم كأذ ها فئات تقوم بإنشاء كائنات مرد ية. مع ظم عنا صر التد كم ال تي يقوم بتطوير ها 
المبرمجين في واقع الأمر عبارة عن دمج لعدد من عنا صر التحكم القيا سية المتوفرة في 
Visual Basic.NET 2008‏ . 

في هذا القسدم سوف نتعرف على الأ ساليب والأدوات اللاز مة لإنشاء عناصر تحكم 


خاصة بنا عن طريق دمج عدد من العناصر القياسية. 


wl1.62تخدlم User Control Designer‏ 
في هذا القسم سوف نتعلم كيف يمكننا أن ننشاً عناصر التحكم خاصتتا باستخدام الأداة 
ser Control Designer‏ . في القسم ٩‏ تعلم نا ان ننث ئ فئة با ستخدام قالب المشروع 
Library‏ 8))›» عنصر التحدكم هو عبارة عن فئة يمكن أن نر ها» وکما عناصر التحدكم 
القياسية المتوفرة في 2008 ٤1‏ 1¢.Nء8Ba‏ سء ۷» فإن عناصر التحكم التي يقوم المبرمج 

بتصميمها يمكن أن يضيفها إلى النماذج أثناء التصميم لتظهر عند تنفيذ البرنامج. 

عندما تقوم بتصميم واجهة تطبيقك» فإن النموذج هو المكان الذي سوف تقوم بتجميع 
عنا صر تحك مك فو قه وتقرر ک يف سوف تبدو هذه العنا صر. وبالم ثل فان الأداة مولا 
Contro1 Designer‏ تساعدك علی تصمیم عنصر التحکم خاصتك وکیف یبدو. 
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عنصر التحكم كأي فئة أخرى لكن يمكن أضافته إلى صندوق الأدوات ×0ط1هه] 
ویمکن وضعه فوق النموذج. وعلی حین أن الوحدة النمطية للفئة C1ass Module‏ تحتوي 
فذقط على تعليمات» فإن عنصر التحدكم يحتوي على تعلیمات وشکل. User Control sla‏ 
Designer‏ تماثل النموذج المستخدم في تصميم الواجهات» حيث له خصائص للتحكم في 
تنكل ورك غتاضر التحك الى ترا 

تختلف الطريقة التي یمکن أن تستخدم إنشاء عنصر التحدكم تبعاً لإصدارہ [ھisu¡‏ ۷ 
4i‏ المس تخدمة› ذف - 2008 1ى8 [uaو¡۷‏ يحتوي على مشروع هو Windows‏ 
»Contro1 Library‏ كن في Visua1 Basic Express‏ لابد من أنشاء مشروع ویھا٣‏ 
[brary‏ في البداية تم إضافة قالب r01†مە€ se‏ . 

1.6.1إنشاء عنصر التحكم في essإExp Visual Basic‏ 

لإنشاء عنصر تحكم في وو٥إم×٤‏ يهط اوuء۷‏ نتبع الخطوات التالية: 
.من lallئnة .New Project ڙiخ| File‏ 

من التبویب ھام ط٥٦‏ اختر yاaإط1ا‏ ssھC1‏ ثم أنقر المفتاح .0k‏ 
من llقlئnة .Add User Control رlتخİÎ Project‏ 

. User Control رتخl‎ Add New Item öذفlنلl في‎ 

في الخانة Name‏ اكکتب NamesC€ontr01‏ نتم أنقر .Add‏ 

يتم إضافة عنصر تحكم مه٣‏ إعءل جديد إلى المشروع وتم فتح نافذة مولا 

.Control Designer 
Cاهيء1.۷( انقر بمفتاح الفأرة الأيمن فوق‎ 0اut1‎ 0n E×ماor‎ e۲ من النافذة‎ 
.0k وانقر‎ (٥1٥e ثم أنقر‎ 
.Save ۸11 اختر‎ ۴11٥ من النافذة‎ 
pû NamesUserControl اكتب اسم llلnشرg ع‎ Save م٣٥٤ في النافذة‎ 


.S4۷e أنقر‎ 
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1.6.2إنشاء عنصر التحكم في 2008 84i‏ u41كVi‏ 
لإنشاء عنصر تحكم في 2008 هط 1هuء۷1‏ نتبع الخطوات التالية: 
0ْ.من llتlئnة .New project jiخÎ File‏ 
من التبويب .Windows Control Library رlaخl Templates‏ 
في الخانة Name‏ أكتب NamesCon t01‏ تم أنقر .Ok‏ 
يضاف قالب 01إ٤مره٣‏ ١ءو0‏ إلى المشروع وتنذ تح lillفذ ö User contro]‏ 
.Designer‏ 
من النافذة ۴1٥‏ اختر ۸11 .Save‏ 


pî NamesUserContro] اكتب اwءp llئnشرg ع‎ $2 ve م٣٥‎ ec في النافذة‎ 


.S4۷e أنقر‎ 


3.ضافة عناصر التحكم القياسية على عنصر التحكم المصمم 
كما سبق أن ذكر ناء فإن أشهر انواع عناصر التحكم المخلقة هي تلك المدمجة من 
عناصر تحكم قياسية. يمكن أضافة عناصر التحكم القياسية إلى قالب 1٤وره‏ مول بجرها 
من صندوق الأدوات ثم رميها فوق القالب.وبمجرد وضع عناصر التحكم القياسية فوق القالب 
يمكن التحكم في حجمها ووضعها من خلال النافذة ومذ)إءمهإ۴. في التدريب التالي سوف 
×0 ط ۲١×‏ لإدخال الاسم الأول والأوسط واسم العائلة. 
حتى نقوم بهذا سوف نتبع الخطوات التالية: 
271.تج lلnشıرg‏ ع .NamesUserControl‏ 
في النافذة Solution Exp] re‏ اختار NamesO]ontr01.vb‏ تم من القائمة 
.Designer ڙرlتخl View‏ 
قم بس حب عنص ر تد كم 1٤ا14‏ من صندوق الأدوات وار مه فوق قالب 
التصميم. 
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في النافذة وع )مه۴ قم بتغيير الخاصية N4٣0٤‏ لتصبح .FulIName‏ 
من صندوق الأدوات ١‏ سحب ثلا ثة عنا صر تد كم من النو ع 1e×80×‏ 
رارمهخ فرق قاب التضميم: 
من النافذة )مم٥۴‏ قم بتغي ير الا سماء لتص بجح FirstName‏ و 
.LastName ڃy MiddleName‏ 


من القائمة ۴11٥‏ أختار .Save A11‏ 
4 إضافة التعليمات إلى عنصر التحكم المنشاً 
في هذا القسم نتعلم كيف نضيف التعليمات لعنصر التحكم لعرض الاسم بالكامل. كما 
عناصر التحكم القياسيةء لعناصر التحكم المنشأة خصائص وطرق وأحداث. ويمكن للمبرمج 
أن يقوم بكتابة التعليمات التي سوف يتم تنفيذ ها عن الاستجابة للأحداث» وما هي الخصائص 
1 الأحداث الخاصة بعنصر التحكم المنشاً 
ح تى يكون عنص ر التح كم الذي ق مت بتص ميمه ذي منذ عة» ڍ جب أن تض يف له 
تعليمات للتعامل مع أحداثه. ولا تختلف كتا بة تعليمات معاملات الحدث لعنصر التحدكم عن 
مثيلتها في واجهات التطبيقات التي قمنا بإنشائها في أقسام سابقة من هذا الكتاب. 
في المثال التالي» سوف تقوم بإضا فة تعليمات تقوم بتحد يث قي مة الخا صية ٠×٤‏ 
لعنصر التحكم مص ه۴111 لتضم القيم النصية المدرجة في عناصر التحكم First Nane‏ و 
Middle Name‏ و LastName‏ بمجرد إدخال هذه القيمة وذلك من خلال عامل الحدث 
.TextChanged‏ 
i.272تج‏ lلnشı0رg‏ ع .NamesUserControl‏ 
في النافذة Solution Exp] 0e۲‏ اختار NamesOCZontr01.vb‏ ثم من القائمة 
View‏ اختار .C٥C0de‏ 


.FirstName_ TextChanged 
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Private Sub FirstName TextChanged (ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
FirstName.TextChanged, MiddleName.TextChanged, 
LastName. TextChanged 


' Display the contents of the three text boxes in 
the label. 


Füul1INamé: Text = FirstName.Téxt € " " & 
MiddleNamé. Text & " " & LastName. Text 


End Sub 
.Save ۸11 من القائمة ٥ا۴ اختار‎ 


أضرب المفتاح FS‏ لاختبار البرنا مج. تظ هر اأنافذة User Control Test‏ 
Container‏ المبینة في شكل 10-77 . قم باختبار العنصر في النافذة Pev] ew‏ . 
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a ‘Names ontrol’ UserControl TestContainer EX) 


Select lser Control: 


Namescontral.HamesContr ol | اا‎ 


PrEYIEWY: 


2ا 

E Accessibility ا‎ 
AczessibleDescr ا‎ 
Accessiblelame 
AcressibleRole Default 

E Appearance 
BackColor [| Gantrol 
Barkgroundlmaz [| thane) 
BackgroundImac Tile 
BorderSty le None 


II1 


Label1 


CUFSOF Default 
H Font Tahoma, Bpt 
ForeCalar E ContolTeaxt 


RightToLeft Jo 
UsewWaitCursor False 


E Behavior 

AallowOrap False 

mı tliat Ca<hlaGraarErmr rl 
Accessibility 


Clase 


User Control Test Container öةذفانأll‎ :77-10 شكل‎ 


أنقر فوق المفتاح ٥1٥١٥‏ لإنهاء اختبار عنصر التحكم. 


2 خصائص عنصر التحكم 

على قيم محددة حول عنصر التحكم في أثناء تصميم وتشغيل التطبيق. وبالمثل ير غب مصمم 
عنص ر التح كم في أن يكون لعنص ر تحك مه خص ائص يم كن للمطور ين الذ ين سوف 
يسدتخدمون هذا العنصر أن يتحكموا فيهاء وتظهر في نافذة Properties‏ كاي عنصر تحکم 


قياسي. 
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يختلف عنه في إنه يمكنك أن استخدام خصائص عنا صر التحكم التي يتكون مذها عنصر 
تحكمك. كما في الفئات يمكنك أن تعلن عن الخصائص تم تضيف التعليمات للإجراءات ء6 


.Set gy 


كما هو واضح الآن» ليس هناك ثمة طريقة لاسترجاع القيم التي أدخلت إلى عناصر 
الت¬ Ûآ؟pم FirstName‏ و MiddleName‏ و LastName‏ ولا تلك ال تي ظهرت في 
2٥‏ ۴]N؛‏ حيث يجب على المبرمج أن يصمم خصائص تتيح لمستخدمي عنصر التحكم 
خاصته أن يتعاملوا مع هذه القيم بالتخصيص أو بالاسترجاع. 


.NamesUserControl ع‎ gرشnلl‎ حتİ.23‎ 


في النافذة Solution Exp]‏ اختار NamesContr01.vb‏ ثم من القائمة 


.Code اختار‎ View 
في محرر التعليمات أضف التعليمات التالية عقب يها 1اطاuں۴ مباشرة.‎ 


Property FirstNameText() As String 
Gêl 
Return FirstName. Text 
End Get 
Set (ByVal value As String) 
FirstName.Text = value 
End Set 
End Property 
Property MiddleNameText() As String 
GÊ 
Return MiddleName. Text 
End Get 
Set (ByVal value As String) 
MiddleName.Text = value 
ERA Set 
End Property 
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Property LastNameText() As String 
Get 


Return LastName. Text 
End Get 
Set (ByVal value As String) 
LastName. Text = value 
End Set 
End Property 


من القائمة ۴11٥‏ أُختر ۸11 veهS.‏ 

أضرب المفتاح ۴5 لتشغيل البرنامج. انتقل إلى أسفل النافذة ؟ع)مم ه۴ في 
النافذة User Contro1 Test Conta" e۲‏ لتجد الخصائص الثلاثةء اكتب في القيمة 
rt Name ×)‏ لت جد هذه القيمة تتغير في عنصر التحكم وبالتالي في عنصدر 
llتحكp .FulIName‏ 


E2 
AutoSerall False 
3 AutoSrcrollMargir Û, O 1 
4 AutoScrollMinSiz O, O 
AutoSize False 
AutoSizelode GrowGnly 
Dock one 
4 Location O0, 0 
3 Margin EE EE 
4 MaximumSize U, U 
4 Minimu1mSiza U, ÛU 
3 Padding J, Û, U, Û 
4 Size 162, 165 
3 FHIiSE 
Firsame Text 
LastName Text 
MiddleName Tex: 


شكل 78-10: الخصائص الجديدة تظهر في نهاية نافذة ۲)6 م٠إ۴.‏ 
3االقيم المسماة 
كل الخصائص التي أضفناها إلى عنصر التحكم الذي أنشأنه حتى الآن تعتد على قيم 
نصيةء لكن الخصائص يمكن ان تتعامل مع أنواع بيانات مختلفة. احيانا يقوم المبرمج بعمل 
قائمة من القيم لإختيار منهاء مثل الخاصية ءلM0ءعS1z‏ لعنصر التحكم ×0 .Pictu re8‏ 
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لنفترض أذنا نر يد عمل خاصية تذيح لنا أن نتحكم في الهيئة التي سوف يبدو عليها 
النص المعروض في عنصر التحكم مهل ]1ن ۴. في هذه الحالة يمكذنا أن نضيف قاذمة 
لهذه الخاصية تضم Last Name First y First Name First‏ و ھكذا. 


تسمح وج8 41ء۷1 أن نستخدم الخاصية ١0:اهإ٥‏ من مء الذي يضم القيم التي 
تريد ها. الخاصية ١٥ااةإء‏ نامء هي عبارة عن قاذمة رقمية ويخصص المبرمج مسمى 
لكل قيمة رقمية فيهاء ويقوم بإعلان هذه الخاصية مستخدما الكلمة المحجوزة ں8 كما في 
المثال التالي: 
Public Enum Display‏ 
FirstMiddleLast‏ 


FirstLast 


LaAStELESEMILdAALeê 


LASLELESE 


End Enum 
وبمجرد عمل ال نومص نمه يمكن استخدامه كأي من أنواع البيانات المعتادة.‎ 
ولإضافة الخاصية التي تعرض قائمة القيم» يجب أن تقوم في البداية متغير من ذات الفئة ك‎ 
صںمع تم تعلن الخاصية من ذات النوع. أثناء تصميم التطبيق تظهر قائمة اليم في نافذة‎ 
.Properties 
لنقوم بتجربة هذه الخاصية مع عنصر التحكم الذي قمنا بإنشائه.‎ 


.NamesUserControl ع‎ gرشnلl‎ حتİ.24‎ 


في النافذة Solution Exp]‏ اختار NamesC]ontro1.vb‏ ثم من القائمة 


.Code اختار‎ View 
في محرر التعليمات أضف التعليمات التالية عقب الخصائص.‎ 


Public Enum Display 
FirstMiddlelast 
FirstlLast 

LastFirstMiddle 


LastFirst 


End Enum 
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أضف التعليمات التالية لإضافة خاصية جديدة. 


Private DisplayStylelList As Display 
Property DisplayStyle() As Display 
Gê 


Return DisplayStylelist 
End Get 
Set (ByVal value As Display) 
DisplayStylelist = value 
End Set 
End Property 


أحذف التعليمات الموجودة في انحدث FirstName TextChanged‏ 
واستبدلها بما يلي : 
Select Case DisplayStylelist‏ 


Case Display.FirstLast 


FullName.Text = FirstName.Text &4 " " & LastName.Text 


Case Display.FirstMiddleLlLast 


FullName.Text = FirstName.Text &4 " " & 
MiddleNamée. Text & " " & LastName. Text 


Case Display.LastFirst 


Ful lName.Text = LastName.Text & ", " & FirstName. Text 


Case Display.LastFirstMiddle 


Ful lName.Text = LastName.Text & ", " & FirstName. Text 
& " " & MiddleName. Text 


End Select 


من القائمة ۴1٥‏ أُختر ۸11 .Save‏ 


أضرب المفتاح ۴5 لتشغيل البرنامج. أنتقل إلى نهاية النافذة 6]٤٥۶‏ م٥۴‏ وقم 
بتغيير الخاصية ٥ارا؟5رهآمء1(‏ أكثر من مرة وفي كل مرة جرب إدخال القيم الثلاثة 
للاسم. 
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5 اختبار عنصر التحكم 
بمجرد الانتهاء من تص مي عنص ر التد کم واختباره في النافذة User Confro|‏ 
"est Container‏ يمكنك - بل ينصح بذلك - أن تقوم باختباره في تطبيق مبسط يمكنك أن 
تذ عل ذلك ببس اطة عن طر يق إضا فة مشرو ع «0ناهiاممA Windows‏ لمشرو عك 
الأ ساسي. وعندئذ يظهر عنص ر التحكم الذي قمت بإنشائه آليا في صندوق الأدوات بحيث 
يمکنك سحبه ورمیه على نموذج مشروعك. 
لنقوم بهذا سوف نتبع الإجراءات التالية: 
i.275تج‏ lلnشıرg‏ ع .NamesUserControl‏ 
6ًّس„من النافذة File‏ |ختر .New Project lias Add‏ 
.Windows Application رlتخİ Add New Project ةڏفlill j.277‏ 
8.في الخانة N4‏ آأکتب اسم المشرو ع 5 User, ٤۲01۲‏ تم أنقر .0k‏ 
يظهر مشروع جديد في lillفذة .Solution Explorer‏ 
9. من النافذة ution Expاor e۲‏ اختار المشروع UserCon†r01 1e5‏ ثم من 
لقlئnة .Set as StartUp Project رlتiتخl Project‏ 
0. من صندوق الأدوات قم بس حب عنص ر لتد کم 01ا0 )٣یمصه.N‏ وارم یه فوق 
النموذج. 
1-.قم بضبط الخصlئص FirstName‏ ڪو MiddleName‏ و LastName‏ في النافذة 
.Properties‏ 
2.من القائمة ۴11٥‏ أختار .Save A11‏ 
3.أضرب المفتاح ۴5 في لوحة المفاتيح لاختبار البرنامج. 
6 تحسين عنصر التحكم المنشئ 
في ما سبق قم نا بإضا فة عنص ر التح كم الذي قم نا بإنشائه على مشروع واخ تبرناه 
وتأكدنا من انه يعمل كما يجب. هناك بعض التحسينات التي ربما تكون قد شعرت انه يجب 
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أضافتها على عنصر التحكم الذي قمنا بإنشائه» فمتلا ربما تحتاج أن تتأكد أن الأسماء الثلاثة 
قد تم تخصيیصهم. 
وحتی یکون عنصر التحکم مفھوم ربما نضیف مسمیات لکل ×0 ۰۲×8 لکن ماذا 
إذا رغب المبرمج في أن يستبدل الاسم الأو سط بحرف فقط. ربما يون الأمثل في هذه الحالة 
هو ان نقوم بعمل خاصية يمكن التحكم فيها أثناء التصميم. 
1 تحسين مظهر عنصر التحكم 
سوف نتبع الإجراءات التالية لتحسين مظهر عنصر التحكم الذي قمنا بإنشائه. 
İ.284تح‏ lلnشرg‏ ع .NamesUserControl]‏ 
في النافذة Solution Exp] 0e‏ اختار NamesO]ontr01.vb‏ تم من القائمة 
.Designer ڙرlتخl View‏ 
قم بسد حب عنص ر تد كم 1٥ا12‏ من صندوق الأدوات وارم يه فوق قالب 
التصميم امام عنصر التحكم N2۳٥‏ ]ء۴۲ وكرر هذا العمل لكل من عنصري التحكم 
.LastName ڃy MiddleName‏ 
في النافذة Solution Exp]0 re‏ اختار NamesO]ontr01.vb‏ تم من القائمة 
View‏ اختار .C٥ode‏ 
أضف التعليمات التالية في نافذة المحرر لعمل خصائص لعناصر التحكم التي 
أضفناها: 


Private textl1l As String = "First Name" 


Property Label1Text() As String 

Gel 
RECUED LEXE 

End Get 

Set (ByVal value As String) 
text1 = value 
Label1.Text = textl 

ENd Set 
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End Property 


Private text2 As String = "Middle Name" 
Property Label2Text() As String 
Get 


Return text2 
End Get 
Set (ByVal value As String) 
text2 = value 
Label2.Text = textZ2 
End Set 
End Property 


Private text3 As String = "Last Name" 
Property Label3Text () As String 
Get 


RétUED EexXE3 
End Get 
Set (ByVal value As String) 
text3 = value 
Label3.Text = text3 
End Set 
End Property 
لا حظ أن هذه التعليمات تعرف خص ائص ال - وإامطاه] من النوع معا۴]۷ بيذ ما‎ 
الإعلان عن الخاصية يتضمن القيمة الافتراضية لها.‎ 


من نافذة محرر التعليمات› اخ تر NamesContro] Events‏ من قاد مة 
الكائنات الموجود على اليس ار فوق» و من قاد مة الأحداث الموجودة فوق على اليم ين 
اختار الحدث .Load‏ 


أضف التعليمات التالية للنحدث :NamesControl Load‏ 


' Initialize the three labels 
Me.Labell.Text = Label1Text 
Me.Label2.Text = Label2Text 
Me.Label3.Text = Label3Text 
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.Build Solution رlتخl‎ Build ةnاقلا من‎ 


من النافذة ١oreاExp‏ nہut10ا0‏ اختار النموذج ۴٥۲۳1‏ ثم من القاد مة 
View‏ اختار ۴۲مع1ءە(. حاول ان تقوم بتغيير الخصائص الخاصة بعنصر التحكم. 


من القائمة ۴٥‏ اختار ۸11 .Sava‏ 


1.66.2اiئھحدù Validating‏ 
من المفاهيم الهامة التي يجب أن نتعرض لها عند تصميم عنصر تحكم هو اختبار ما 
إذا كان القيم المدخلة له - أو القيم التي تضبط خصائصه - ملائمة لما عليه التصميم. معظم 
عناصر التحكم لها الحدث عم 1اه اه۷ والذي يعمل عندما ينتقل التحكم من عنصر التحكم 
إلى عنصر تحكم آخر. في هذا الحدث يمكن أن تضيف التعليمات التي سوف تختبر ما إذا 

كان كل ×0ط×م] يحتوي على قيمة حرفية أم لا. فإذا كان أحد هذه العناصر فارغا تخرج 
رسالة تنبه المستخدم ان هذه الصندوق فارغ. ويمكن أن يستمد نص هذه الرسالة من خاصية 
يقوم مستخدم العنصر بضبطها كيفما شاء. كما انه من الجائز أن مستخدم برنامجك لا يستخدم 
الاسم الأوسط لذلك يمكننا إضافة خاصية من النوع ال 8001٥4١‏ لتوقف عمل حدث التحقق 
عل | .MiddleName‏ 


لنقوم بهذا لنتبع الخطوات التالية: 


5.في محرر التعليمات أضف تعليمات لخاصيتين سوف يتم التحقق منهماء الأولى لتبين 
ما إذا كان الاسم الأوسط مطلوب أم لا. والثانية تبين الرسالة التي سوف يتم إرسالها. 
وذلك بإضافة التعليمات التالية: 


Private required As Boolean = True 
Property MiddleNameRequired() As Boolean 
Gê 
Return required 
End Get 
Set (ByVal value As Boolean) 
required = value 
End Set 
End Property 
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Private errormessage As String = "Please enter your 
name." 


Property ValidationErrorMessage () As String 
GEE 
Return errormessage 
BERNA Ge 
Set (ByVal value As String) 
errormessage = value 
End Set 
End Property 


في محرر التعلیمات› اختار names]ontr01 ٤v ens‏ من قاد مة الکائنات 


والحدث ااه لاج۷ من قائمة الأحداتث. 


اصف التعليمات التالية لنحKدث :NamesControl Validating‏ 


Tf MiddleNameRequired = True Then 


IE FLIEStNamMé. Text 3 “™ OF MIiddleNamé: Text = ™™ OF _ 
LastName.Text = "" Then 
MsgBox (ValidationErrorMessage) 


ENA“ TE 


Else 
' Middle name isn't required. 


Tf FLEStName.iText = "" OF LastName: Text = "™ Then 


MsgBox (ValidationErrorMessage) 
BERQ. TLE 
End: TE 


.Build Solution رlتخ|‎ Build ةnئlll من‎ 

من النافذة Expo re۲‏ nہ01uti0‏ اختار النموذج ۴٥۲۳1‏ ثم من القادمة 
V16«‏ اختار إ۴مع1ءه(. حاول ان تقوم بتغيير الخصائص الخاصة بعنصر التحكم. 

قم بسحب عنصر تحکم ١٥ا8‏ من صندوق الأدوات وارميه فوق النموذج 
.Form1‏ 

من القائمة ۴٥‏ اختار ۸11 .Sava‏ 
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اضرب المفتاح ۴5 ثم قم باختبار البرنامج. 
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برمجة الرسوم 


تو فر 2008 V¡sua1 Basic.N٤1‏ مجمو عة من الأدوات التي تساعد المبرمج 
على أداء الوظائف المتعلقة بالرسوم. هذه الأدوات هي موضوع هذا القسم. 


7. اآظهار الرسوم 


في قم سابق تعلمت استخدام عنصر التحکم ×0 8ع ں)ء۴ لإظهار صورة فوق 
و ا کات الور و اک ا ر کا کی ر کن فی کن 
الأحيان يحتاج ال مبرمج أن يقوم بإضا فة ر سوم إلى نموذ جه لأهداف أخرى غ ير عرض 
الصور» كأن يضيف دائرة حمراء حول صندوق نصوص مهم مثلا. لأداء متثل هذه الوظائف 
فإن 2008 1 Visua1 Basic. NE‏ توفر الفئة وعزطمهإ6 التي تتيح للمبرمج تنفيذ مختلف 
العمليات المتعلقة بالرسوم. 


1. اأسس الرسم 

ق بل البدء في التعا مل مع الر سوم من خلال 2008 Visual Basic.NET‏ من 
الأفضل ان نتعرف على ب عض المفاهيم الأ ساسية. تتكون شاشة الحاسوب من الآلاف من 
النقاط الصغيرة التي يطلق عليها الاسم بكسلات ‘Pixels‏ بتخصیيص لون لکل بكکسل من هذه 
البكسلات تظهر الأشكال المختلفة فوق الشاشة. 

الآن لنتخيل النموذج كلوحة رسم ۷aجمة٥‏ سوف تقوم بالرسم فوقها كيفما شئت كما 
لو حة الر سم الحقية ية. وك ما أن لو حة الر سم لها أبعاد تقاس بالبو صة أو بال م» كذلك فإن 
للنموذج أبعاد تقاس بالبكس ل. يس تخدم في تحد يد مو قع البكس ل فوق النموذج نظام إحدا ثي 
بسيط يلعب يمتد المحور السيني فيه من اليسار على اليمين» بيذما يمتد المحور الصادي من 
الأعلى على الأسفل. 

في هذا النظام الإحداثي تعتبر نقطة الأصل هي الركن العلوي الأيدر من الشاشة 
لذلك فإنه إذا أردت ر سم نقطة تبعد عشرة بكسلات من اليسار وعشرة بكسلات من أعلىء 
فإنك تشير إلى إحداثها السيني والصادي بالقيمتين ٠١‏ و .٠١‏ 
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كذلك تستخدم البكسلات لتوضيح طول وعرض الرسومات» فمثلا لرسم مربع طول 
حرفه ٠٠١‏ بكسل» بحيث يكون ركنه العلوي الأيسر عند النطة ٠١‏ و ٠١‏ نحتاج أن نبين أن 
أبعاده هي ٠١‏ و ٠١‏ و ٠٠١‏ و ٠٠١‏ حيث ٠١‏ و ٠١‏ هي نقطة الركن العلوي الأيسر»› ٠٠١‏ 
طوله» ٠٠١‏ الثانية عرضه. 
عملية الر سم فوق النموذج يطلق عليها الاسم عمام اهم النماذج وعناصر التحكم 
ها حدث يطلق عليه ٤ه"‏ والذي يحدث عند ما تحتاج هذه النماذج وعناصر التحكم إلى 
إعادة ر سمهاء على سبيل المثال» عند ما يعرض نموذج للمرة الأولى» أو يخڌ في خلف نفاذة 
أخرى» فإن أي تعليمات قمت بكتابتها لعرض ر سوم فوق هذا النموذج أو عنصر التحكم يتم 
اختزانها في الحدث )منم۴. 
2 رسم خط 
لرسم خط عبر النموذج» فإن هناك شيئين سيكون عليك تعريفهماء إحداثياته ولونه. 
وكما بينا سلفا فإن الإحداثيات يتم تعييذها باستخدام البكسلات. بالنسبة لاخط هناك زوج من 
الإحداثيات التي تحتاجهاء إحداثيات نقطة البداية وإحداثيات نقطة النهاية. 
وكما أ نك تحتاج إلى قلم عند ما ر سم خط فوق لو حة الر سم» كذلك فإنك تحتاج إلى 
مثل هذا الكائن عند رسم الخط فوق النموذج. ويطلق على مثل هذا الكائن لحسمن الحظ الاسم 
مو٥۴.‏ الكائن ۸ء۴ يعين الهيئة التي سوف يظهر بها الخطء وفي معظم الحالات تكوه هذه 
الهيئة قا صرة على لون ال خط. في التدر يب التالي سوف نقوم بر سم خطوط أفة ية ورأ سية 
وعرضية فوق النموذج باستخدام تعليمات 2008 Visual Basic.NET‏ . 
6.أختار New Project‏ من القائمة .۴¡1le‏ 
من التبويب .Windows Application رlتخl 1em plates‏ 
في الخانة 4١‏ أجعل اسم المشروع 1٣٥١‏ تم أنقر المفتاح .0k)‏ 
أذقر مرتين فوق النموذج لتظهر نافذة تحرير التعليمات» أختار الحدث ١iه۴"‏ 
من قائمة الأحداث. 


أضف التعليمات التالية للحدث اھ٣ :۴٥۲۳1‏ 
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' Draw a 400 pixel black line 25 pixels from the top of 
the form. 


e.Graphics.DrawLine (Pens.Black, 0, 25, 400, 25) 


' Draw a 500 pixel red line 100 pixels from the left o 
the form. 


e.Graphics.DrawLine (Pens.Red, 100, 0, 100, 500) 


' Draw a diagonal blue line from the upper left to the 
lower right. 


e.Graphics.DrawLine (Pens.Blue, 0, 0, Me.Width, 
Me.Height) 


أنقر المفتاح ۴5 لتتفيذ البرنامج. 


8. رمسم الأشكال 


فيما سبق تعرفنا كيف نرسم خط بسيط فوق النموذج باستخدام الطريقة مم1 54W‏ 
و كائن »۴٥"‏ إضافة إلى رسم الخطوط يمكن استخدام 2008 Visua1 Bas¡ic.NN£1‏ لرسم 
الإشكال سواء كانت الفار غة أو المصمتةء لكن عند رسم الأشكال المصمتة نحتاج إلى كائن 


جدید - شبیھ بالکائن ٣٥٥‏ - ھو الکائن طیںإ8. 
1 .رمسم الأشكال البسيطة 

رسم الأشكال يتشابه مع رسم الخطوط حيث تكون مضطر لتعيين إحداثيات أشكالك 
وهیئڌ ها. وعلى حين يحتاج ر سم ال خط تحد يد إحداثيات نقطة ين فحسب» فإن الأشكال م ثل 
المر بع أو الم تطيل تحتاج إحداثيات تبين الر كن العلوي الأي ر مذ ها إضا فة إلى طول ها 
وعرضها. 

الدائرة والشكل البيضاوي لا تحتاج في رسمها الركن الأعلى الأيسر منها - حيث لا 
يو جد لها م تل هذه النة طة -لكن عوضا عن هذا يس تخدم لتحديد ها الر كن العلوي الأيدر 
للمستطيل الوهمي المحيط بها. 

فيما يلي تدريب على رسم شكل بسيط فوق النموذج. 
7-.آأختار New Proje‏ من القائمة ۴11e‏ . 


.Windows Application رlتخl‎ Templates من التبويب‎ 


في الخانة ۳ه أجعل اسم المشروع كممهط؟ تم أنقر المفتاح .0k)‏ 
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أذقر مرڌين فوق النموذج أتظهر نافذة تحر ير التعليمات› أختار الحدث ٤ہP*a1‏ 
من قائمة الأحداث. 
أضف التعليمات التالية للحدث )اھ٣ :۴٥۲۳1‏ 


' Draw a 200 by 150 pixel green rectangle. 
e.Graphics.DrawRectangle (Pens.Green, 10, 10, 200, 150) 


' Draw a blue square 


e.Graphics.DrawRectangle (Pens.Blue, 30, 30, 150, 150) 


' Draw a 150 pixel diameter red circle. 


e.Graphics.DrawEllipse (Pens.Red, 0, 0, 150, 150) 


' Draw a 250 by 125 pixel yellow oval. 


e.Graphics.DrawEllipse (Pens.Yellow, 20, 20, 250, 125)‏ 
أنقر المفتاح ۴5 لتنفيذ البرنامج. 


2 رسم الأشكال المصمتة 

الأشكال التي قمنا بر سمها في التدر يب السابق كانت تعتمد على الخط الخار جي 
Outline‏ ف قط لر سم أشكال مص متة يحتاج ال مبرمج ۱ ستخدام طرق تعبئة اللون م ثل 
Fil]Rectangle‏ و .۴1E1lipse‏ هذہ الطرق تستخدم الکائن طوں8۲ و هو كائن رسومي 
آخر. 

عندما تقوم بتعبئة الشكل بلون مختلف» ستكون محتاج إحداثيات مثل التي استخدمتها 
لر سم الشكل» وإلا سوف تجد الخط الخار جي قد اختفى تذحت اللون الجد يد. فمثلاء لتعبئة 
المربع ذي الإحداتيات 0,0,150,150 يجب تعيين إحداثيات التعبئة لتكون 1,1,148,148 
وذلك على أساس أن سمك الخط الخارجي بكسل واحد. 

أنجرب ذلك اتبع الخطوات التالية: 
8.أضف التعليمات التالية للحدث )اھ٣ :۴٥۲۳1‏ 


' FILI the cCiréLé with. the sSamë COLO aS 1ES BOEAEE. 


e.Graphics.FillELllipse (Brushes.Red, 0, 0, 150, 150) 


' Fill the square with a different color. 


e.Graphics.FillRectangle (Brushes.Aquamarine, 31l, 31, 
148, 148) 
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أنقر المفتاح ۴5 لتنفيذ البرنامج. 


9 رسم النصوص فوق النموذج 
ت فاا ےک کے قاری فی ااا چ ی یو رن 
الرسوم sل0طاMe‏ csءiطمهG.‏ في أقسام سابقة تعلمنا كيف نقوم باستخدام عنصر التحكم 
ااا كرصن اللضرض, كن هك حالات يخا بها ارج أن يخوت الصرضص هه 
إلى برنام جه كر سوم» فمثلا يمكن أن نقدم الخط مائل با ستخدام عنصر التحكم 1ع طج1 لكن 
بتقديمه كرسوم نستطيع أن نميل النص إلى أي اتجاه كيفما شئنا. 
1 رمم النص 
لرسم النص فوق النموذج سوف نستخدم الطريقة .DrawString‏ وکما في طرق 
الر سم الأخرى»ء تعمد الطريقة DrawString‏ علی Brush jil‏ أتحد يد لون وإحداثیات 
الت المرسوم وتفتل فة لر كن الطري الاسر هي فط ركن الستال العخط بالنص. 
تحتاج الطريقة DrawString‏ أيضاً إلى قيمڌ ين أخري ين» قي مة اأ نص المطلوب 
استخدام هذا الكائن في الطريفة عماS)۲سها5.‏ 
9.أختار New Project‏ من القائمة ۴11e‏ . 
من التبويب .Windows Application رlتخl Templates‏ 
في الخانة مه أجعل اسم المشرو ع (۲4W ۲٠×٤‏ ثم أنقر المفتاح .0Ok)‏ 
أذقر مرتين فوق النموذج لتظهر نافذة تحرير التعليمات» أختار الحدث )١iه۴"‏ 
من قائمة الأحداث. 


أضف التعليمات التالية للحدث )اھ٣ :۴٥۲٣۳١1‏ 


' Create a font object. 


Dim aFont As New System.Drawing.Font ("Arial", 22, 
FontStEvlLe:. Bold) 


' Display the text with the DrawString method. 
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e.Graphics.DrawString ("Graphics are fun!", aFont, 
Brushes.Black, 20, 10) 


أنقر المفتاح ۴5 لتنفيذ البرنامج. 
2 االمؤثرات على النصوص 


لر سم نص مائل أو مدور نحتاج طري قة أخرى هي الطري فة دہإمگیمھء). هناك 
أنواع مختل فة من ال - إ0 fورهم)‏ المم كن ١‏ ستخدامها للحص ول على مؤثرات مختل فة 
للنصوص» لكننا سوف نقتصر على طريقة واحدة هي ra۸۴0۲۳؟؟ Rotate‏ . 


التحو يل تو ثر على الس طر التالي لل طر الذي يحتوي علی تعلیمات ال - إ٥‏ گیمھإ]. ھذہ 


أنجرب هذا سوف نتبع الخطوات التالية: 
0.أضف التعليمات التالية للحدٿث اھ٣ :۴٥۲٣۳1‏ 


"' FILL the Ciréelés WILEh ther samê êOoOLlLOF ã8 IES border, 


Dim aFont As New System.Drawing.Font ("Arial", 22, 
FontStyle. Bold) 


e.Graphics.FillELllipse (Brushes.Red, 0, 0, 150, 150) 


' Fill the square with a different color. 


e.Graphics.FillRectangle (Brushes.Aquamarine, 31l, 31, 
148, 148) 


أنقر المفتاح ۴5 لتنفيذ البرنامج. 


0 رسىم الصور 

فيما يلي نتعلم كيف يمكذنا أن نقوم بإضافة صور باستخدام طرق الفئة ومزطمهإع. 
في قسدم مڊكر» قم نا بعرض الصور مستخدمين عنصر التدكم .PictureBox‏ تح الفئة 
graphics‏ للمبرمج قراءة صورة من ملف. 

لنقوم بهذا سوف نتبع الخطوات التالية: 
1-.أختار New Proje‏ من القائمة .۴¡le‏ 


.Windows Application رlتخl‎ Templates من التبويب‎ 
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في الخانة ١ه‏ أجعل اسم المشروع #عهد سه۲( تم أنقر المفتاح .0k)‏ 

في النافذة 10۲۲م ×8 ۸٥ا1uهS‏ ذ قر مس تخدما مفتاح الفارة الي من فوق 
المشروع .Properties رڙlتخl, DrawIn¬age‏ 

أختار التبويب ع۲ .R‌es0u‏ 


أذقر فوق السهم المجاور لت كءءإuامومR۸ ۸4d‏ واختار من القادمة المنسدلة 
Add Existing File‏ - أنظر شکل 11-79. 


استخدم نافذة اختيار الملفات لتختار ملف صورة. 


8 Add Resource ۰ 1 


Add Existing File... 

Add New String 1 
New Image ظ‎ 
Add New Icon 


Add New Text File 


شكل 79-11: Îختlر Add existing File‏ 
أذقر مرتين فوق النموذج لتظهر نافذة تحرير التعليمات» أختار الحدث ذه۴" 


من قائمة الأحداث. 


أضف التعليمات التالية للحدث )اھ٣ :۴٥۲۳٣1‏ 


e.Graphics.RotateTransform (15) 


e.Graphics.DrawlImage (My.Resources.picture, 150, 50) 


استبدل picture‏ باسم الصورة التي استخدمتها. 


أنقر المفتاح ۴5 لتنفيذ البرنامج. 
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ا 


شكل 80-11: الصورة كما ظهرت التطبيق 
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